Pfadeinstellung

Hallo Profis
Ich habe da eine Frage.
Version. Windows 98.
Mit in VB 6 erstellte .exe Datei im Autostart möchte ich den Anwender auf einem bestimmten Pfad halten ohne der Möglichkeit auf einen anderen Ordner zuzugreifen.
Das Makro müsste bei jeder Auswahl des Laufwerkes oder Pfades durch den Anwender aktiviert werden.

Dieser Versuch brachte nicht den Erfolg.

Sub Pfad_umstellen()
Dim pf As String
Dim istPfad As String
istPfad = "H:\Abteilungen "
sollPfad = CurDir
If sollPfad istPfad Then
ChDrive („H:“)
ChDir istPfad
End If
End Sub

Wie kann ich das momentan ausgewählte Laufwerk u. Pfad manipulieren?
Hat jemand für mich einen Tipp?

Danke im vorhinein Eugen
Ps: eine Mehr-Benutzereinstellung ist nicht möglich.

Hallo.

Mit dem FileSystemObject kannst Du ganz einfach Laufwerke, Ordner und Dateien manipulieren (verschieben, umbenennen etc.)

In VB Verweis auf Microsoft Scripting Runtime setzen.

Gruss, H.

Hallo Houghton

Danke für deinen Tip.
Den muß ich gleich ausprobieren.
Leider bin ich nicht so Sattelfesst,möglich das ich noch ne Nachfrage habe.
Schönen Tag wünsche ich dir.
Gruss Eugen

[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]