Dateien verschieben mit VBS

[vbs]

Hallo,
ich wollte ein VBScript schreiben, das Dateien aus Unterordnern in einen anderen (übergeordneten) Ordner verchiebt und danach den eigenen Ordner löscht.
Leider fand ich das, was ich dazu im Internet gefunden habe, recht verwirrend (VBS ist glaub ich nicht meine Sprache ;).

Zu alleresrt möchte ich die aktuelle Directory auf die Directory setzen, in der sich mein VBS befindet (diese beiden könnten beim Aufruf des Scripts nämlich verschieden sein).
Setzen kann man die aktuelle Directory, wenn ich das richtig verstanden habe, so:

set oShell = CreateObject("WScript.Shell")
oShell.CurrentDirectory=XXX

Wäre nett wenn mir jemand auf die Sprünge helfen könnte, wie man den Ordner ermittelt, in dem sich die VBS-Datei befindet.