VB Script überprüfung einer Datei

gelöstFrage VB for Applications Entwicklung

Hallo

ich versuche ein Script zu erstellen welches beim Login gestartet wird, dies soll dann schauen ob die Datei ""Start.txt"" im %appdata% oder im User Profile (c:\users\%username%\ vorhanden ist.

ist die Datei vorhanden = Ende

ist die Datei nicht vorhanden führe ein weiteres Script aus ""\\Server\freigabe\script"" und erstelle die Datei

ich hänge total mit den % Variablen

HILFE

Danke
Twister

Bitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben

Content-ID: 194642

Url: https://administrator.de/forum/vb-script-ueberpruefung-einer-datei-194642.html

Ausgedruckt am: 02.08.2025 um 07:08 Uhr

8 Kommentare

Neuester Kommentar

Hallo 00Twister00 und willkommen im Forum

ich hänge total mit den % Variablen

So schwer ist das nicht.
In VBS ein kleines Beispiel:

Set objShell = CreateObject ("WScript.Shell")  
profile_path = objShell.ExpandEnvironmentStrings ("%USERPROFILE%")  
Wscript.Echo profile_path

Wie weit bist du denn mit deinem Script`?

Gruss
Tsuki

Hallo

Set objFSO = createobject("Scripting.FileSystemObject")
If objFSO.FileExists("c:\users\%username%\start.txt") then
wshshell.run "\\servername\freigabe\machedies.bat", 0, TRUE
Dim fso, MyFile
Set fso = CreateObject("Scripting.FileSystemObject")
Set MyFile = fso.CreateTextFile("C:\Users\%username%\start.txt", True)
MyFile.WriteLine("einstellungen uebernommen.")
MyFile.Close
End If

so hab ich das versucht

Danke!

Hallo 00Twister00,

na wenn's gelöst ist, dann ein Häkchen dran und bitte in Zukunft die
benutzen. Sieht besser aus.

Gruss
Tsuki

Leider habe ich keinen erfolg .. das Script scheit zu laufen es passiert nur nichts.. kann mir bitte jemand dabei helfen.

DANKE

Set objShell = CreateObject ("WScript.Shell")   
profile_path = objShell.ExpandEnvironmentStrings ("%USERPROFILE%")   
Set objFSO = createobject("Scripting.FileSystemObject")  
If objFSO.FileExists("c:\users\%username%\start.txt") then  
wshshell.run "\\server\freigabe$\copy\Start_DATA.cmd", 0, TRUE  
Dim fso, MyFile
Set fso = CreateObject("Scripting.FileSystemObject")  
Set MyFile = fso.CreateTextFile("C:\Users\%username%\start.txt", True)  
MyFile.WriteLine("einstellungen uebernommen.")  
MyFile.Close
End If

Gruss
Twister

Hallo Twister,

was gibt denn dein Script aus, wenn du Zeile 4 deines Scriptes
durch

Wscript.Echo "c:\users\%username%\"

ersetzt?
vermutlich nicht, was du dir wünscht.
Das gleiche wäre in Zeile 8 zu erwarten.

In Zeile 2 deines Scriptes steht doch schon der Pfad drinnen.
Teste mal bis Zeile 2:

Set objShell = CreateObject ("WScript.Shell")   
profile_path = objShell.ExpandEnvironmentStrings ("%USERPROFILE%")   
Wscript.Echo profile_path

Also, wenn man das anwendet ergäbe sich in deinem Beipiel:

Set objShell = CreateObject ("WScript.Shell")   
profile_path = objShell.ExpandEnvironmentStrings ("%USERPROFILE%")   
Set objFSO = createobject("Scripting.FileSystemObject")  
If objFSO.FileExists(profile_path & "\start.txt") then  
wshshell.run "\\server\freigabe$\copy\Start_DATA.cmd", 0, TRUE  
Dim fso, MyFile
Set fso = CreateObject("Scripting.FileSystemObject")  
Set MyFile = fso.CreateTextFile(profile_path & "\start.txt", True)  
MyFile.WriteLine("einstellungen uebernommen.")  
MyFile.Close
End If

Was ich nicht weiss, ob deine Start_Data.cmd funktioniert

Viele Grüsse

Tsuki

Hi

ich habs

DANKE

musste das Script noch erweitern=

set wshshell = wscript.createobject("wscript.shell")

weil der nicht starten wollte

und

If objFSO.FileExists(profile_path & "\start.txt") =false then  

damit der nach der Datei sucht.

DANKE!!!

nur leider startet der die Bacht nur wenn die Datei "start.txt" vorhanden ist

Dann musst du "ihm" es auch so sagen

Set objShell = CreateObject ("WScript.Shell")   
set wshshell = wscript.createobject("wscript.shell")  
profile_path = objShell.ExpandEnvironmentStrings ("%USERPROFILE%")   
Set objFSO = createobject("Scripting.FileSystemObject")  
If Not objFSO.FileExists(profile_path & "\start.txt") then  
wshshell.run "\\server\freigabe$\copy\Start_DATA.cmd", 0, TRUE  
Else
Dim fso, MyFile
Set fso = CreateObject("Scripting.FileSystemObject")  
Set MyFile = fso.CreateTextFile(profile_path & "\start.txt", True)  
MyFile.WriteLine("einstellungen uebernommen.")  
MyFile.Close
End If