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]
Funktiönchen
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
Das ist die Funktion:
Function ScriptPath
'(Gibt Skriptpfad mit Querstrich am Ende zurück)
DIM Path
path = WScript.ScriptFullName
ScriptPath = Left(path, InstrRev(path, "\"))
End Function
Schöne Grüße,
Mohamed.
Hallo und Danke euch beiden, ihr habt mir sehr geholfen!