7.13 Wie kann ich bei der Shell-Funktion ein Arbeitsverzeichnis mitgeben?
VB4-VB6
Von: Thorsten Dörfler
Die Shell-Funktion lässt einen Parameter vermissen, der der gestarteten Anwendung ein abweichendes Arbeitsverzeichnis übergeben lässt. Sie können jedoch vor dem Start des Programms das aktuelle Verzeichnis Mithilfe der ChDrive-/ChDir-Funktionen setzen. Dies wird automatisch dem neu gestarteten Prozess vererbt:
Public Function ShellEx(ByVal PathName As String, _
Optional ByVal WindowStyle As VbAppWinStyle = vbMinimizedFocus, _
Optional ByVal DirName As String) As Double
If CBool(Len(DirName)) Then
ChDrive DirName
ChDir DirName
End If
ShellEx = Shell(PathName, WindowStyle)
End Function