PHP expert |
|
[code]phprnDim input, input2, path, boolrnrnSet ws = WScript.CreateObject (WScript.Shell)rnrninput = inputbox(Geef het path in)rninput2 = inputbox(Geef het bestand in)rnrnjanee = Msgbox (Bent u zeker van uw actie,vbYesNoCancel,Message box Bevestiging)rnIf janee = 6 Thenrn Set scut = ws.CreateShortcut (labo_d_applet.lnk)rnrn path = input + labo_d_applet.batrnrn If scut.TargetPath = path Thenrn bool = TRUErn End Ifrn If scut.Arguments = input2 Thenrn bool = TRUErn End Ifrn If scut.Save Thenrn bool = TRUErn End Ifrn If bool = FALSE Thenrn WScript.Echo Er is een fout opgetredenrn en dan hier bv een enter na die fout opgetreden plus specificatie, snap jern Elsern WScript.Echo Het is geluktrn End IfrnEnd If[code] rnrnrnzo ziet een kleine vbs code eruit wijnand, voor school moeten maken, die php staat erbij voor de highlight |