Office: VBA - shell-Befehl senden

Hallo alle miteinander! :)

Ich habe irgendwie ein Problem mit der shell-funktion..
Ich möchte, dass wenn ich auf einen Button klicke, ein Befehl an die Eingabeaufforderung gesendet wird. Dieser Befehl setzt sich bei mir aus 2 Teilen zusammen, einmal dem Dateipfad und einmal einem Ordnernamen hinten angehängt.

Hier einmal mein Code:

Code:

Sub send_command()

Dim myshell
Dim strItems As String
Dim command As String
Dim command2 As String

command = "rd C:\Beispiele\Test_rd_ordner\"

strItems = Dir("C:\Beispiele\Test_rd_ordner\*", vbDirectory)

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

    If strItems <> "." And strItems <> ".." Then
    command2 = command & strItems
    
    myshell = shell(command2, 1)
    
    End If
    
    strItems = Dir ' Aufruf der Funktion ohne Parameter!!
    
Loop    

End Sub

Folgendes weiß ich schon:
strItems beinhaltet wie erhofft bei jedem durchlauf einen Datei- oder Ordnernamen aus dem angegebenen Pfad.

Die werte "." und ".." werden wie erhofft ignoriert.

Gebe ich für myshell = shell("ping mein_computer_name") ein, so wird die shell mit dem Ping-Befehl so oft gehöffnet, wie ich es erhoffe(also genau so oft wie Ordner und Dateien vorhanden sind).

Gebe ich command2 in einer MsgBox aus, so beinhaltet diese wie erhofft "C:\Beispiele\Test_rd_ordner\ORDNERNAME" .

Doch der von mir gepostete Code meckert an der Stelle 'myshell = ...' und sagt mir "Datei nicht gefunden", obwohl der Befehl, welcher in command2 steht, funktioniert, wenn man ihn manuell in die Eingabeaufforderung eingibt...

Ich bin überfragt, weiß jemand wie ich meinen zusammengepuzzelten Befehl ans laufen bekomme?

MfG
Marcel

 

Edit:
Mir ist gerade folgendes aufgefallen:
Öffnet man so in Windows die Eingabeaufforderung steht dort ja:

öffne ich diese über VBA per shell-Befehl so ist diese zu begin komplett leer!
Leider schließt sich bei mir das Fenster sofort nach dem Ausführen des Befehls wieder, aber man kann es beim Pingen deutlich sehen, da es ja einige sekunden braucht...
Könnte es damit zusammenhängen?
Wenn ja, kennt jemand einen Befehl um die "Standartausgabe" bzw. -einstellung zu erzwingen?

MfG :)

 

Hehe, yup... Aber suche mal nach der Datei rd.bat, rd.com, rd.exe usw. ;-)

Der Befehl "rd" (auch "rmdir") ist ein Befehl, der zum "internen" Befehlssatz des Kommando-Interpreters (früher unter DOS "command.com", jetzt eher sowas wie "cmd.exe" oder so ähnlich) gehört.

Versuch den Aufruf solcher Befehle mal mit etwas in der Art:

Code:

c:\windows\system32\cmd.exe /c rd c:\blablubb

Und da Du ja nicht absolut sicher weißt, wer mit welcher Shell arbeitet, solltest Du am besten auch noch die Variable "ComSpec" in den Aufruf mit einbauen.

Weiteres findest Du in einem DOS-Fenster auch mit "cmd /?" und "set".

Gruß, Michael

 

Guten Morgen! :)

Danke erstmal für die Antwort =)
Das klappt soweit auch mit dem Befehl

Code:

"c:\windows\system32\cmd.exe /c rd C:\Beispiele\Test_rd_ordner\" & strItems

Doch leider gibts da ein kleines Problem.. habe ein wenig rumprobiert, neue Ordner erstellt und löschen lassen.. doch es klappte nicht bei allen :cry:
Nach weiterem rumprobieren ist mir aufgefallen, dass alle Ordner, die ein Leerzeichen in der Bezeichnung haben, einfach ignoriert werden...
Hänge ich vor das "myshell = ..." eine MsgBox mit den strItems, so werden alle Ordner angezeigt, womit ich ausschließe, dass die if-Anweisung richtig funktioniert...

Hat jemand dazu einen Anhaltspunkt?

MfG :-)

 

Hm, nicht ganz... Sie werden nicht ignoriert, sondern der rd läuft einfach nur ins Leere.

Das kannst Du relativ leicht selbst nachvollziehen. Öffne mal ein DOS-Fenster und gib dort ein:

Code:

...>c:
...>cd \
C:\>md test
C:\>cd test
C:\test>md blablubb
C:\test>md bla blubb
C:\test>dir

Das Ergebnis des dir ist ein anderes, als man zunächst erwarten würde. Es sollten eigentlich 2 Verzeichnisse namens "blablubb" und "bla blubb" auftauchen. Stattdessen sind es aber 3, und zwar "blablubb", "bla" und "blubb". Also hat der 2. md Befehl irgendwie 2 Verzeichnisse erstellt. Abhilfe:

Code:

C:\test>md "bla blubb"
C:\test>dir

Und schwupps, schon ist das erwartete Ergebnis da. Und jetzt rückwärts:

Code:

C:\test>rd bla blubb
C:\test>dir

Oh weiha, der eine Befehl hat gleich 2 Verzeichnisse gelöscht, aber nicht das, was wir eigentlich wollten. Also auch hier:

Code:

C:\test>rd "bla blubb"
C:\test>dir

Und schon ist die Welt wieder in Ordnung.

Gruß, Michael

 

Wunderschick =)

mit

Code:

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

erwirscht er alle wie gewollt :-o

schankedööön :mrgreen: