If DateDiff("d", testdag, idag) < 1 Then ' den næste linje kan droppes WScript.Echo ("This date is after " & idag) Dim WSHShell Set WSHShell = WScript.CreateObject("WScript.Shell") WshShell.Run("Etprogram.exe") End If ' slut for denne gang (kan droppes) WScript.Echo ("Slut")
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.