Dateien in Verzeichnis auflisten

Hallo Evast,

der FileNameGet-Dialog ist ein Windows-Standard Dialog, der bei jedem Aufruf parametriert werden muss. Um das zuletzt benutzte Verzeichis beim nächsten Aufruf als Startverzeichnis zu parametrieren, muss der Inhalt der Variablen FileDlgDir in eine globale Variable zwischengespeichert werden. Am Anfang des Scripts kann geprüft werden ob die globale Variable schon existiert. Wenn nicht wird sie angelegt und initialisiert. Im anderen Fall ist der letzte Pfad der aktuelle Inhalt. Dieser wird am Ende des Scriptes gesetzt.

Dim sMyFileNames, iCount

If Not ItemInfoGet("sMyPath") Then
Call GlobalDim("sMyPath")
sMyPath = DataReadPath
End If

Call FileNameGet("ANY", "FileRead", sMyPath, "TDM data (*.tdm),*.tdm", "All.lst", True, "Data selection")
sMyFileNames = Split(FileDlgFileName,"|")
For iCount = 0 To Ubound(sMyFileNames)
Call msgbox(FileDlgDir & " - " & sMyFileNames(iCount))
Next

sMyPath = FileDlgDir


Carpe DIadem