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
I dette særtema ser vi på, hvordan cloud og AI bliver fundamentet for virksomhedernes digitale forretning, og hvordan de nye muligheder for automatisering og forretningsværdi kan udnyttes uden at miste overblik, sikkerhed og menneskelig kontrol.
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.
