Jeg sidder og fumler lidt med ét lille script og håber på at en af jeg kan hjælpe! Scriptet skal gå ud og tjekke om en given fil eksistere og hvis den gør gøre én ting. Og hvis filen IKKE eksisterer så skal den gøre noget andet. Problemet er at hvis filen ikke eksistere så får jeg en script fejl.......... Hvad mangler jeg i dette script:
set WshShell = Wscript.CreateObject("WScript.Shell") Dim oFso, ofile, oMessage ' set oFso = CreateObject ("Scripting.FileSystemObject") set ofile = oFso.GetFile("C:\Winnt\test.log") If ofile.Name = "test.log" Then WshShell.Run "C:\WINNT\NOTEPAD.EXE" Else WshShell.Run "C:\WINNT\system32\calc.exe" End if
Mon ikke dette lille script jeg fandt på nettet kan få dig på rette vej:
<% dim filesys, filetxt, getname, path Set filesys = CreateObject("Scripting.FileSystemObject") Set filetxt = filesys.CreateTextFile("c:\somefile.txt", True) path = filesys.GetAbsolutePathName("c:\somefile.txt") getname = filesys.GetFileName(path) filetxt.WriteLine("Your text goes here.") filetxt.Close If filesys.FileExists(path) Then Response.Write ("Your file, '" & getname & "', has been created.") End If %>
set WshShell = Wscript.CreateObject("WScript.Shell") Dim oFso, ofile, oMessage
' set oFso = CreateObject ("Scripting.FileSystemObject") If oFso.FileExists("C:\Winnt\test.log") Then WshShell.Run "NOTEPAD.EXE" Else WshShell.Run "calc.exe" End if
Du bør i øvrigt finde Windir (i dette tilfælde c:\winnt) dynamisk: set WshShell = WScript.CreateObject("WScript.Shell") sWinDir = WshShell.ExpandEnvironmentStrings("%WinDir%")
Synes godt om
Ny brugerNybegynder
Din løsning...
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.
