24
If exist - if not exist in .vbs - Datei
Moin, moin,
vielleicht hat jemand ja einen Tipp für mich. Mit nachfolgender .vbs lasse ich mir einen Messagebox ausgeben:
Allerdings würde ich jetzt gerne diese nur ausgeben lassen, wenn ich einem bestimmten Verzeichnis (%userprofile%\Temp) .txt Dateien liegen.
Jetzt dachte ich daran, es wie folgt zu lösen:
Allerdings funktioniert das leider nicht! Hat jemand eine Idee, dass anders zu lösen?
Beste Grüße!
vielleicht hat jemand ja einen Tipp für mich. Mit nachfolgender .vbs lasse ich mir einen Messagebox ausgeben:
msgbox"Konvertierung abgeschlossen!" & vbCrLf & "" & vbCrLf & "Konvertierung abgeschlossen! ",64,"Konvertierung abgeschlossen!" Allerdings würde ich jetzt gerne diese nur ausgeben lassen, wenn ich einem bestimmten Verzeichnis (%userprofile%\Temp) .txt Dateien liegen.
Jetzt dachte ich daran, es wie folgt zu lösen:
set quelle=%userprofile%\Temp\*.txt
if exist "%quelle%" goto :test
if not exist ""%quelle%"" goto :EOF
:test
msgbox"Konvertierung abgeschlossen!" & vbCrLf & "" & vbCrLf & "Konvertierung abgeschlossen! ",64,"Konvertierung abgeschlossen!" Allerdings funktioniert das leider nicht! Hat jemand eine Idee, dass anders zu lösen?
Beste Grüße!
Auf Facebook teilen
Auf Twitter teilen
Auf Reddit teilen
Auf Linkedin teilenBitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben
Content-ID: 346063
Url: https://administrator.de/contentid/346063
Ausgedruckt am: 23.11.2024 um 13:11 Uhr
24 Kommentare
Neuester Kommentar
Hi,
na ja, man kan nicht einfach so Batch nach VBscript "kopieren". Bei Powershell mag das ja z.T. noch gehen.
1. Syntax lautet "if ... then ..."
2. Die Existenz mehrerer Dateien kann man eh so nicht abfragen. Das machst Du in VBscript z.B. mit Scripting.FileSystemObject.
So etwa
E.
na ja, man kan nicht einfach so Batch nach VBscript "kopieren". Bei Powershell mag das ja z.T. noch gehen.
1. Syntax lautet "if ... then ..."
2. Die Existenz mehrerer Dateien kann man eh so nicht abfragen. Das machst Du in VBscript z.B. mit Scripting.FileSystemObject.
So etwa
dim WshShell : set WshShell = CreateObject("Wscript.Shell")
dim FSO : set FSO = CreateObject("Scripting.FileSystemObject")
dim Path : Path = WshShell.ExpandEnvironmentStrings("%userprofile%") & "\Temp"
dim File
for each File in FSO.GetFolder(Path).Files
if lcase(right(File.Name,4)) = ".txt" then
msgbox "Konvertierung abgeschlossen!" & vbCrLf & "" & vbCrLf & "Konvertierung abgeschlossen! ",64,"Konvertierung abgeschlossen!"
exit for
end if
nextE.
Moin,
dein Problem ist, dass du Batch und vbs vermischt:
Du versuchst die Variable quelle mit %-Zeichen anzusprechen.
Dass Variablen via %-Zeichen angesprochen werden, ist jedoch eine Terminologie des Batch-Scriptings
Genauso wie das Zuweisen einer Variable.
Klassischerweise funktioniert das Zuweisen und "Abrufen" wie folgt:
um zu prüfen, ob Dateien zunächst vorhanden sind, schaue dir mal die Methode GetFolder an.
Hier kannst du dann z.B. für jede Datei prüfen (mittels for each objFile in objGetFolders), ob die Extension "txt" entspricht und einen Zähler hochlaufen lassen.
Ist deiner Counter >0, dann lässt du die msgbox "anspringen"...
Hilfen findest du hier:
https://msdn.microsoft.com/de-de/library/f1xtf7ta(v=vs.84).aspx
http://www.vbsedit.com/html/867057a0-50cf-4613-84be-28bf908b23a7.asp
https://stackoverflow.com/questions/4200028/vbscript-list-all-pdf-files- ...
https://stackoverflow.com/questions/6759299/check-to-see-if-any-file-exi ...
Gruß
em-pie
€dit: Typo &
Emeriks Variante bedeutet, dass du bei jeder vorhandenen *.txt-Datei eine msgbox erhälst, bei 3000-Dateien also 3000 Msg-Boxen...
€dit2: Gestrichenes erklärt sich unten!
dein Problem ist, dass du Batch und vbs vermischt:
Du versuchst die Variable quelle mit %-Zeichen anzusprechen.
Dass Variablen via %-Zeichen angesprochen werden, ist jedoch eine Terminologie des Batch-Scriptings
Genauso wie das Zuweisen einer Variable.
Klassischerweise funktioniert das Zuweisen und "Abrufen" wie folgt:
'Deklarieren
DIM strVar
'Zuweisen
strVar = "Meine Variable"
'Verwenden:
wscript.echo strVarum zu prüfen, ob Dateien zunächst vorhanden sind, schaue dir mal die Methode GetFolder an.
Hier kannst du dann z.B. für jede Datei prüfen (mittels for each objFile in objGetFolders), ob die Extension "txt" entspricht und einen Zähler hochlaufen lassen.
Ist deiner Counter >0, dann lässt du die msgbox "anspringen"...
Hilfen findest du hier:
https://msdn.microsoft.com/de-de/library/f1xtf7ta(v=vs.84).aspx
http://www.vbsedit.com/html/867057a0-50cf-4613-84be-28bf908b23a7.asp
https://stackoverflow.com/questions/4200028/vbscript-list-all-pdf-files- ...
https://stackoverflow.com/questions/6759299/check-to-see-if-any-file-exi ...
Gruß
em-pie
€dit: Typo &
€dit2: Gestrichenes erklärt sich unten!
Emeriks Variante bedeutet, dass du bei jeder vorhandenen *.txt-Datei eine msgbox erhälst, bei 3000-Dateien also 3000 Msg-Boxen...
Nein, bedeutet sie nicht!
Zitat von @em-pie:
Emeriks Variante bedeutet, dass du bei jeder vorhandenen *.txt-Datei eine msgbox erhälst, bei 3000-Dateien also 3000 Msg-Boxen...
Emeriks Variante bedeutet, dass du bei jeder vorhandenen *.txt-Datei eine msgbox erhälst, bei 3000-Dateien also 3000 Msg-Boxen...
Wenn Du Zeile 8 und Zeile 9 von @emeriks Code anschaust, siehst Du es.
Trifft die if-Abfrage zu wird in Zeile 8 die for-Schleife schon wieder verlassen.
Die msgbox kommt also nur einmal auf bei der ersten gefundenen txt-Datei.
jo... ihr habt recht, das exit for habe ich glattweg überlesen...
Verzeiht mir bitte!
Verzeiht mir bitte!
Verzeiht mir bitte!
Niemals!
Zitat von @emeriks:
Hi,
na ja, man kan nicht einfach so Batch nach VBscript "kopieren". Bei Powershell mag das ja z.T. noch gehen.
1. Syntax lautet "if ... then ..."
2. Die Existenz mehrerer Dateien kann man eh so nicht abfragen. Das machst Du in VBscript z.B. mit Scripting.FileSystemObject.
So etwa
E.
Hi,
na ja, man kan nicht einfach so Batch nach VBscript "kopieren". Bei Powershell mag das ja z.T. noch gehen.
1. Syntax lautet "if ... then ..."
2. Die Existenz mehrerer Dateien kann man eh so nicht abfragen. Das machst Du in VBscript z.B. mit Scripting.FileSystemObject.
So etwa
> dim WshShell : set WshShell = CreateObject("Wscript.Shell")
> dim FSO : set FSO = CreateObject("Scripting.FileSystemObject")
> dim Path : Path = WshShell.ExpandEnvironmentStrings("%userprofile%") & "\Temp"
> dim File
> for each File in FSO.GetFolder(Path).Files
> if lcase(right(File.Name,4)) = ".txt" then
> msgbox "Konvertierung abgeschlossen!" & vbCrLf & "" & vbCrLf & "Konvertierung abgeschlossen! ",64,"Konvertierung abgeschlossen!"
> exit for
> end if
> next
> E.
Hi emeriks,
genau sowas habe ich gesucht und versucht, vielen Dank, ich werde es gleich mal direkt testen.
Kann ich das so anpassen, dass er die Messagebox nur ausgibt, wenn nur bestimmte .txt Dateien vorhanden sind?
Alles eine .txt Datei die zu einem mit convert.... anfängt und die zweite die mit complete... anfängt.
Kann ich das so anpassen, dass er die Messagebox nur ausgibt, wenn nur bestimmte .txt Dateien vorhanden sind?
Ja.Alles eine .txt Datei die zu einem mit convert.... anfängt und die zweite die mit complete... anfängt.
Kann ich nicht beantworten. Ich verstehe den Text nicht.
Sorry - die es gibt 2 .txt Dateien die vorhanden sein sollen, um die Message auszugeben.
1. txt -> convert-18.09.52.txt
2. txt -> complete-18.09.54.txt
Hierbei soll er halt convert und complete nur als variable nehmen.
1. txt -> convert-18.09.52.txt
2. txt -> complete-18.09.54.txt
Hierbei soll er halt convert und complete nur als variable nehmen.
Na dann baue das so ein.
if lcase(left(File.Name,7)) = "convert" and lcase(right(File.Name,4)) = ".txt" then Zitat von @emeriks:
Na dann baue das so ein.
Na dann baue das so ein.
> if lcase(left(File.Name,7)) = "convert" and lcase(right(File.Name,4)) = ".txt" then
> Ok, vielen Dank. Wie ist es, wenn hier ein "und" habe möchte?
if lcase(left(File.Name,7)) = "convert" and lcase(right(File.Name,4)) = ".txt" and
if lcase(left(File.Name,7)) = "complete" and lcase(right(File.Name,4)) = ".txt"
then
Wieso "und"? "Oder" !
Und ein Bißchen Lesen und learning by doing ist nichts für Dich?
Und ein Bißchen Lesen und learning by doing ist nichts für Dich?
Das mit "or" hatte ich verstanden, aber ich wollte gerne das beides erfüllt sein muss. Daher das "und" 
Achso. die Message soll nur einmal kommen und das nur dann, wenn diese beiden Datein gleichzeitig vorhanden sind?
Nach dann überlege mal selbst ob man das mit der Überprüfung des Namens einer Datei hinbekommen könnte?
Du willst weder
"Wenn jemand anwesend ist, der/die Paul und Tina heißt, dann bitte melden."
noch
"Wenn jemand anwesend ist, der/die Paul oder Tina heißt, dann bitte melden."
sondern
"Wenn jemand anwesend ist, der Paul heißt, und dann noch jemand, die Tina heißt, dann bitte melden."
Du musst also durch den Raum gehen und Dir merken, ob Du Paul oder Tina schon getroffen hast.
Nach dann überlege mal selbst ob man das mit der Überprüfung des Namens einer Datei hinbekommen könnte?
Du willst weder
"Wenn jemand anwesend ist, der/die Paul und Tina heißt, dann bitte melden."
noch
"Wenn jemand anwesend ist, der/die Paul oder Tina heißt, dann bitte melden."
sondern
"Wenn jemand anwesend ist, der Paul heißt, und dann noch jemand, die Tina heißt, dann bitte melden."
Du musst also durch den Raum gehen und Dir merken, ob Du Paul oder Tina schon getroffen hast.
dim WshShell : set WshShell = CreateObject("Wscript.Shell")
dim FSO : set FSO = CreateObject("Scripting.FileSystemObject")
dim Path : Path = WshShell.ExpandEnvironmentStrings("%userprofile%") & "\Temp"
dim File, ConvertExist, CompleteExist
ConvertExist = False
CompleteExist = False
for each File in FSO.GetFolder(Path).Files
if lcase(left(File.Name,7)) = "convert" and lcase(right(File.Name,4)) = ".txt" then
ConvertExist = True
end if
if lcase(left(File.Name,8)) = "complete" and lcase(right(File.Name,4)) = ".txt" then
CompleteExist = True
end if
if ConvertExist and CompleteExist then
msgbox "Konvertierung abgeschlossen!" & vbCrLf & "" & vbCrLf & "Konvertierung abgeschlossen! ",64,"Konvertierung abgeschlossen!"
exit for
end if
next
Hallo emeriks, vielen Dank für Deine Hilfe.
Das funktioniert soweit alles sehr gut - danke.
Wenn ich die Dateinamen jetzt anpasse, will es irgendwie nicht funktionieren.
Ich habe jetzt Zeile 8 mit test1 und Zeile 11 mit test2 bei mir angepasst - allerdings dann funktioniert es nicht.
Das funktioniert soweit alles sehr gut - danke.
Wenn ich die Dateinamen jetzt anpasse, will es irgendwie nicht funktionieren.
dim WshShell : set WshShell = CreateObject("Wscript.Shell")
dim FSO : set FSO = CreateObject("Scripting.FileSystemObject")
dim Path : Path = WshShell.ExpandEnvironmentStrings("%userprofile%") & "\Temp"
dim File, ConvertExist, CompleteExist
ConvertExist = False
CompleteExist = False
for each File in FSO.GetFolder(Path).Files
if lcase(left(File.Name,7)) = "convert" and lcase(right(File.Name,4)) = ".txt" then
ConvertExist = True
end if
if lcase(left(File.Name,8)) = "complete" and lcase(right(File.Name,4)) = ".txt" then
CompleteExist = True
end if
if ConvertExist and CompleteExist then
msgbox "Konvertierung abgeschlossen!" & vbCrLf & "" & vbCrLf & "Konvertierung abgeschlossen! ",64,"Konvertierung abgeschlossen!"
exit for
end if
nextIch habe jetzt Zeile 8 mit test1 und Zeile 11 mit test2 bei mir angepasst - allerdings dann funktioniert es nicht.
Ja ist logisch.
Hast Du Dir auch nur einmal die Befehle angesehen, was diese machen und warum da welche Parameter stehen? Ein Bißchen Initiative?
lcase
left
right
Hast Du Dir auch nur einmal die Befehle angesehen, was diese machen und warum da welche Parameter stehen? Ein Bißchen Initiative?
lcase
left
right
Ja, das habe ich, aber irgendwie will das nicht so, wie ich es will
Muss ggf. Zeile 9,12,14 ebenfalls angepasst werden?
Muss ggf. Zeile 9,12,14 ebenfalls angepasst werden?
Hast Du denn den Code zwischen den Zeilen 7 und 14 überhaupt verstanden?
Ja, das habe ich, aber irgendwie will das nicht so, wie ich es will
Muss ggf. Zeile 9,12,14 ebenfalls angepasst werden?
Ja. Z.B. in 9 könntest Du schreiben "noch trueer"Muss ggf. Zeile 9,12,14 ebenfalls angepasst werden?
Mal im Ernst:
Ja, das habe ich
Was machen die von mir fett geschriebenen Funktionen? Wenn Du mir diese Frage beantworten kannst, dann helfe ich weiter.
OK.
Ich bin raus, denn jetzt wird's bescheuert.
Ich bin raus, denn jetzt wird's bescheuert.
Zitat von @emeriks:
Ja ist logisch.
Hast Du Dir auch nur einmal die Befehle angesehen, was diese machen und warum da welche Parameter stehen? Ein Bißchen Initiative?
lcase
left
right
Ja ist logisch.
Hast Du Dir auch nur einmal die Befehle angesehen, was diese machen und warum da welche Parameter stehen? Ein Bißchen Initiative?
lcase
left
right
Hi emeriks, hat lcase ggf. etwas mit der länge des Wortes zu tun? Irgendwie steige ich da nicht durch, würde es aber gerne wissen.
Hast du mal nach den Funktionen
Left()
Right()
Lcase()
UCase()
Im Zusammenhang mit vbs geschaut?
Wenn wenn ja, wirst du obigen Code und deinem String test_.txt verstehen.
Was macht denn ein Right("test_.txt", 4)?
Left()
Right()
Lcase()
UCase()
Im Zusammenhang mit vbs geschaut?
Wenn wenn ja, wirst du obigen Code und deinem String test_.txt verstehen.
Was macht denn ein Right("test_.txt", 4)?
Zitat von @em-pie:
Hast du mal nach den Funktionen
Left()
Right()
Lcase()
UCase()
Im Zusammenhang mit vbs geschaut?
Wenn wenn ja, wirst du obigen Code und deinem String test_.txt verstehen.
Was macht denn ein Right("test_.txt", 4)?
Hast du mal nach den Funktionen
Left()
Right()
Lcase()
UCase()
Im Zusammenhang mit vbs geschaut?
Wenn wenn ja, wirst du obigen Code und deinem String test_.txt verstehen.
Was macht denn ein Right("test_.txt", 4)?
Hallo em-pie, ich konnte mich da jetzt endlich einlesen und habe es verstanden...
Wenn ich hier:
if lcase(left(File.Name,7)) = "convert" and lcase(right(File.Name,4)) = ".txt" then anstatt convert.txt - test123.txt habe, muss ich es wie folgt anpassen:
if lcase(left(File.Name,8)) = "test1234" and lcase(right(File.Name,4)) = ".txt" then
Geht doch.
