'Zum ermitteln der kurzen Dateinamen
Private Declare Function GetShortPathName _
Lib "kernel32.dll" Alias "GetShortPathNameA" _
(ByVal lpszLongPath As String, ByVal lpszShortPath As String, _
ByVal cchBuffer As Long) As Long

'Ermittelt den kurzen Dateinamen
Public Function GetShortName(ByVal longName As String) _
  As String
 
  Dim ShortName As String
  Dim sLen As Long
 
  ShortName = Space$(256)
  sLen = GetShortPathName(longName, ShortName, Len(ShortName))
  ShortName = Left$(ShortName, sLen)
 
  GetShortName = ShortName
End Function

'Ins eingelesene Verzeichnis wechseln
ChDrive (Left(Verzeichnis.Path, 3))
ChDir (Verzeichnis.Path)
 
'Den kurzen Dateinamen für die Ausgabedatei auslesen
sShortName = GetShortName(App.Path & "\Dos-Scan.log")
 
shell_Aufruf = "cmd /c dir /b /S > " & sShortName
Call Shell(Shell_Aufruf, vbHide)
 
Exit Function