Durch VBS Laufwerksbuchstaben an shell übergeben

[CF-BlueSky]

Hallo ihr!!

Ich habe dank eines ganz netten Menschen ausm Forum ein Script, dass mir mein CDROM-Laifwerk sagt, und auch die Dateien, die sich auf der CD befinden:

-------------------------------------------------------------------

Const DriveTypeCDROM = 4

dim oFS, oDrives, f, fc, f1, s, pfad

Set oFS = Wscript.CreateObject("Scripting.FileSystemObject")

Set oDrives = oFS.Drives 'Loop thru A-Z. If found, exit early.

For Each Drive in oDrives

If Drive.DriveType = DriveTypeCDROM Then

Wscript.Echo "Ihr CD-ROM-Laufwerk ist: " + Drive.DriveLetter +":\"

pfad = Drive.DriveLetter + ":\"

Set f = oFS.GetFolder(pfad)

Set fc = f.Files

For Each f1 in fc

WScript.echo f1.name

Next

End If

Next

------------------------------------------------------------

Jetzt soll die Shell direkt auf mein CD-ROM Laufwerk gehen, und nicht auf das Standardverzeichnis. Also da soll dann unten stehen CDROM:/(bei mir D:/) und nicht was aneders. Wie kann ich das machen? Weiß das vielleicht jemand?

LG und Danke schon mal Tine!!

[Amstelchen]

Set objShell = Wscript.CreateObject("Wscript.Shell")

objShell.CurrentDirectory = "D:\"

sollte helfen.

s'Amstel

[CF-BlueSky]

ich will aber nicht "D:\" rein schreiben, sondern er soll es automatisch rausfinden und dann einfügen. Aber danke trotzdem, vielleicht weißt du dafür ja auch noch ne antwort!?

LG Tine

[Amstelchen]

vielleicht check ich es nicht ganz, aber du hast in Drive.DriveLetter ja eh schon den laufwerksbuchstaben vom cd-rom stehen.

das mit CurrentDirectory angewandt sollte doch auf das richtige laufwerk wechseln.

s'Amstel

[Riceman]

Hi Tinchen, na wie gehts voran?

Set objShell = Wscript.CreateObject("Wscript.Shell")

objShell.CurrentDirectory = "D:\"

Bezogen auf dein Script meint er das so:

Set objShell = Wscript.CreateObject("Wscript.Shell")

objShell.CurrentDirectory = pfad

Dann bist du direkt auf dem CD-ROM-Laufwerk (bzw. wenn es mehrere davon gibt, im höchsten Laufwerksbuchstaben).

Gruß

Mario

[Riceman]

Jetzt habe ichs kapiert... BlueSky meint, daß innerhalb des Skripts ein Systemaufruf ausgeführt werden soll, der D:\ zum aktuellen Shell-Verzeichnis macht. Ist das Skript zu Ende, soll D:\ in der Konsole stehen. Aber wie es geht, weiß ich auch nicht. Es dauert ja ewig, bis man unter google irgendwas hilfreiches zu vbs gefunden hat...