ES GEHT DOCH NICHT :(

[kaepten]

Hallo Waldgeist

Ich habe das Script doch testen können.

Habe dazu nur die Zeilen hier genommen:

DIM FSO        ' Variable für den Zugriff auf das File System Object
DIM oFolder    ' Variable für den Ordner, in dem die Unterordner entstehen
DIM oSubFolder ' Variable für die Unterordner
DIM Folder     ' Variabel für den Ordner, in dem die Unterordner entstehen
DIM Pfad

Set objFSO    = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder(".")

MsgBox objFolder.Path

Folder = objFolder

Set objFolder = Nothing
Set objFSO    = Nothing

Ich kann Dir aber leider nur berichten, dass die Alertbox schön brav genau das Verzeichnis anzeigt, aus welchem ich die VBS Datei gestartet habe! Zu testzwecke habe ich es in unterschiedliche Laufwerke und Verzeichnise kopiert...

kaepten