Dir Function Excel Mac
06.11.2012 18:49:09
Tom
Ich muss ein Makro schreiben, welches auf einem Mac-PC den folgenden Befehl ausführt:
Sub ListFiles()
sDir = ThisWorkbook.Path & Application.PathSeparator
sFile = Dir(sDir, vbDirectory)
Do While Len(sFile) > 0
Debug.Print sFile
sFile = Dir
Loop
End Sub
Leider funktioniert der Dir-Befehl auf dem Mac nur ungenügend. Jokerzeichen (*?) werden nicht akzeptiert und auch die Dateinamen werden gekürzt retourniert. Also wenn jemand vom obigen Skript eine Mac-Version erstellen könnte, wäre mir sehr geholfen!
Tom