Hallo, Erkläre doch mal wofür die Sprungmarke gut sein soll. Das würde mich interessieren.
Ich geh mal durch was der Code tun würde nachdem ein Ordner gewählt wurde: ist "folder" nicht NIL nächste Zeile start: Setze i = 1 und zähle dann bis folder.count file=folder.item(i) . . . goto start Setze i = 1 und zähle dann bis folder.count file=folder.item(i) . . . Siehst du was ich meine? Dein Code würde nicht ein Einziges mal die For-Next-Schleife durchlaufen da du mit dem goto aus der For-Schleife heraus direkt vor die For-Schleife springst => Endlosschleife. Und das führt wohl früher oder später zum Absturz. Mit goto kann man schönen Spagetti-Code fabrizieren und es hat schon seinen Grund warum man das heute kaum noch einsetzt. ;) Grüße Michael Am 10.02.2010 15:04 Uhr schrieb "Robert Lehner" unter <r.leh...@typo-lehner.de>: > Hallo, > > ich möchte in Dateinamen die "/" in "_" ersetzen. > > Leider kommt es mit folgendem Code zum Absturz: > > Dim i As integer > dim folder, file as folderItem > dim t As string > folder=selectfolder > if folder<>nil then > start: > for i=1 to folder.count > file=folder.item(i) > t=file.name > t=replaceall(t,chr(47),"_") > file.name=t > goto start > next > end if > > Danke im Voraus für jede Hilfe > Robert > RB 2006 Rel. 3 > >
