14. juli 2003 - 20:53
Der er
2 kommentarer og 1 løsning
Problem med Input til placering i rod.
<package> <job id="XO Care Loginscript"> <script language="VBScript"> Dim LogTekst, Input Input = InputBox("Indtast nyt mappe navn","Opret mappe") Set fso = CreateObject("Scripting.FileSystemObject") If Not fso.FolderExists("e:" & Input) Then fso.CreateFolder("e:" & Input) 'LogTekst = Logtekst & "Oprettet h:\system Directory" & VbCrLf End If If LogTekst <> "" then LogThis("Bruger: " & Brugernavn & VbCrLf & LogTekst) Function LogThis(Indtekst) Set WshShell = WScript.CreateObject("WScript.Shell") WshShell.LogEvent 4, Indtekst End function </script> </job> </package> Problemet er at den vil kun oprette mappen der fra hvor scriptet ligger, og ikke i roden på E: eller en undermappe.
Annonceindlæg tema
Forsvar & beredskab
Cybersikkerhed, realtidsdata og robuste it-systemer er blevet fundamentet for moderne forsvar.
Prøv lige sådan her: <package> <job id="XO Care Loginscript"> <script language="VBScript"> Dim LogTekst, Input Input = InputBox("Indtast nyt mappe navn","Opret mappe") Set fso = CreateObject("Scripting.FileSystemObject") If Not fso.FolderExists("e:\" & Input) Then fso.CreateFolder("e:\" & Input) 'LogTekst = Logtekst & "Oprettet h:\system Directory" & VbCrLf End If If LogTekst <> "" then LogThis("Bruger: " & Brugernavn & VbCrLf & LogTekst) Function LogThis(Indtekst) Set WshShell = WScript.CreateObject("WScript.Shell") WshShell.LogEvent 4, Indtekst End function </script> </job> </package> //>Rune
Takker endnu engang, jeg mente jeg osse, men det ville sq ikke første gang jeg prøvede. hrz your point...
Anytime... Thx 4 Poinz //>Rune
Kurser inden for grundlæggende programmering