Office: VB - Code ohne Programm ausführen?

Hallo!
hoffe mein Titel ist nicht zu verwirrend.. wusste nicht genau wie ich es umschreiben sollte xD

also ich habe folgendes anliegen:
habe in excel folgenden code hinterlegt:

Code:

        Dim myshell
        Dim strItems As String


        strItems = Dir("C:\Beispiele\Test_rd_ordner\*", vbDirectory) ' Alle Dateien und Ordner aus dem Dateipfad werden später angegeben

        Do While strItems <> "" ' Wiederholen bis strItems=""

            If strItems <> "." And strItems <> ".." Then
                MsgBox(strItems & " wird gelöscht!")

                myshell = Shell("c:\windows\system32\cmd.exe /k rd ""C:\Beispiele\Test_rd_ordner\" & strItems & """", 1)

                'Else
                'MsgBox (". oder .. wurde ignoriert")

            End If

            strItems = Dir() ' Aufruf der Funktion ohne Parameter!!

        Loop

Dies ist nur das Testprogramm, später sollen andere Befehle ausgeführt werden.
Nun wollte ich wissen, ob es möglich ist, diesen Code unabhängig von excel ausführen zu lassen, da dieser auf einem Rechner ohne MS-Office ausgeführt werden soll.
Am besten wäre halt eine Datei die bei Doppelklick den hinterlegten Code ausführt, nur... wie?
Im netz hatte ich was von wegen .vbs dateien gefunden, aber wenn ich dieses erstelle und ausführe, meckert er in der zeile "dim strItems..." und führt nichts aus... bin grade echt hilflos, hoffe ihr hab tips für mich :)

MfG Marcel

 

Hallo Marcel,

VBS ist ein abgemagertes VB bzw. VBA. In diesem gibt es nur 1 Datentyp, nämlich VARIANT. Daher muss man bei der Variablendeklaration so verfahren, wie Du es bereits in der 1. Zeile mit der Variablen 'myshell' gemacht hast.

Code:

Dim MyShell
Dim strItems

usw.