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 fra Novataris
Vejen til devops med Bavarian Nordic
Bavarian Nordics vækst blev starten på et DevOps-samarbejde med Novataris for hurtigt at kunne tilpasse IT-organisation til forretningen.
7. december 2023
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