hallo,
ist es möglich mit VB durch klicken eines Buttons ein CMD befehl auszufüren?
Was sol dieser befehl können: Der CMD befehl währe
„DEL *.Log“
und.
„CD NCDFiles\
DEL *.pre“
Währen also 2 Befehle á 2 Buttons
Also die Beiden Datei Typen sind im Selben Ordner (Auser die *.Pre Datein die sind in Ordner NCDFilles [Der Code {„CD NCDFiles\
DEL *.pre“} führt zu den ordner])
der erste button sol den Ersten Befehl aus Führen der 2. den 2ten
ich habe gelesen das es mit Shell("cmd /c " & Chr(34) & „CMD Befehl“ & Chr(34)) gehen soll nur führt er nix beim drauf klicken aus!
Warum nicht VB Kommandos?
Hallo Namenloser,
für solche Dinge benutze ich in VBA immer die Befehle ChDir, Dir und Kill. Ich vermute stark, dass es die in VB auch gibt.
In das Klick-Event des ersten Buttons könntest du z.B. schreiben:
Dim str\_d As String
str\_d = Dir("\*.log")
Do Until str\_d = ""
Kill str\_d
str\_d = Dir
Loop
Und das Klick-Event des 2 Buttons könnte so aussehen:
Dim str\_d
ChDir "NCDFiles"
str\_d = Dir("\*.pre")
Do Until str\_d = ""
Kill str\_d
str\_d = Dir
Loop
Eventuell musst du mit dem ChDir noch ein bisschen spielen, je nachdem von wo du dein Programm startest.
Ich denke aber, so ähnlcih müsste es gehen, ohne Shells und CMDs.
Gruß, Andreas
danke funktioniert aber was muss ich verändern wenn ein dritter Button beides gleichzeitig machen soll?
also die *.Log und im Ordner NCDFilles/*.Pre löschen
wenn ich beides einfüge kommt:
Fehler: Die lokale Variable „str_d“ ist bereits im aktuellen Block deklariert.
danke schon mal im Voraus ;D
Hallo immernoch-namenloser,
dann baust du eben beides zusammen und tust es in das klick-event des dritten Buttons. Das sieht dann so aus:
Dim str\_d As String
str\_d = Dir("\*.log")
Do Until str\_d = ""
Kill str\_d
str\_d = Dir
Loop
ChDir "NCDFiles"
str\_d = Dir("\*.pre")
Do Until str\_d = ""
Kill str\_d
str\_d = Dir
Loop
Eigentlich hättest du da auch selber drauf kommen können. Die Fehlermeldung hat dir doch gesagt, was zu viel ist: Das 2. „Dim str_d As String“
Gruß, Andreas
DANKE ^^
hätte wirklich selber drauf kommen, aber ich wollte nichts falsch machen darum dachte ich lieber nachfragen bevor noch was schief geht ;D
danke dir