Code: Alles auswählen
Directory$ = PathRequester("Bitte wählen Sie einen Pfad aus","C:\")
If Directory$
If ExamineDirectory(0, Directory$, "*.*")
While NextDirectoryEntry(0)
If DirectoryEntryType(0) = #PB_DirectoryEntry_File
If OpenFile(0,Directory$+DirectoryEntryName(0))
Debug "Die Datei "+Chr(34)+DirectoryEntryName(0)+Chr(34)+" wurde geöffnet."
CloseFile(0)
EndIf
EndIf
Wend
FinishDirectory(0)
EndIf
EndIf
Nun meine Frage:
Gibt es eine Möglichkeit, diese Dateien zu öffnen, ohne sie umbenennen zu müssen?