<< Click to Display Table of Contents >> ChDrive (Anweisung)

ChDrive Laufwerk

Wechselt das aktuelle Laufwerk.

Laufwerk ist eine Zeichenkette mit dem Laufwerksbuchstaben.

Sollte Laufwerk mehr als ein Zeichen enthalten, wird nur das erste Zeichen verwendet.

Siehe auch: ChDir, CurDir, MkDir, RmDir

Beispiel:

Sub Main

 Dim Answer, Msg, NL

 NL = Chr(10)                   ' Chr(10)=Neue Zeile

 CurPath = CurDir()             ' Aktuellen Pfad ermitteln

 ChDrive "D"

 Msg = "Es wurde in das Verzeichnis " & CurDir() & " gewechselt. "

 Msg = Msg & NL & NL & "Klicken Sie auf OK, "

 Msg = Msg & "um in das vorherige Verzeichnis zurückzugelangen."

 Answer = MsgBox(Msg)

 ChDir CurPath                  ' Zurück ins ursprüngliche Verzeichnis

 Msg = "Wir sind jetzt wieder im Verzeichnis " & CurPath & "."

 MsgBox Msg

End Sub