Hallo miteinadender,
wenn ich in VBS den Befehl "fso.GetFile(XXXXX)" eingebe muss statt den X ein Zielordner sein z.B. "C:\Lottozahlen.txt". Gibt es einen weg, damit z.B. "Lottozahlen.txt" in dem Verzeichnis gesucht wird, in dem auch das Skript ist, damit es nicht so umständlich ist und man die ".txt" datei nach C: kopieren muss.
Hi Diddi,
versuche es hiermit.
' VB Script Document
option explicit
Dim objFolder, strSearchText, fso, objFile
strSearchText = "Lottozahlen.txt"
Set fso = CreateObject("Scripting.FileSystemObject")
Set objFolder = fso.GetFolder("c:\")
For Each objFile In objFolder.files
if instr(objFile.name, strSearchText) > 0 then
msgbox "Gefunden"
end if
next
[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]
Hallo Didi,
füge die untenstehende Funktion irgendwo in Dein Programm ein, dann kannst Du auf im gleichen Verzeichnis befindliche Dateien immer zugreifen mit:
ScriptPath & meineDatei
Function ScriptPath '(Gibt Skriptpfad mit Querstrich am Ende zurück) DIM Path path = WScript.ScriptFullName ScriptPath = Left(path, InstrRev(path, "\")) End Function
Hallo und Danke euch beiden, ihr habt mir sehr geholfen!