Göra ett program åt mig?

Tjena...

Jag skrev ett litet program till dig...

Används såhär:

upTime.exe [output file path]

output file path är C:\winnt\uptime.txt by default, så om du vill att det ska hamna där behöver du inte ange det. Om du vill att filen ska hamna i C:\temp t.ex. skriver du såhär:

upTime.exe c:\temp\uptime.txt

Källkoden:

Sub Main()
    Const ForReading = 1, ForWriting = 2, ForAppending = 8
    Dim fso, f, strArg
    
    strArg = Command()
    If Len(strArg) = 0 Then strArg = "C:\winnt\uptime.txt"
    
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set f = fso.OpenTextFile(strArg, ForWriting, True)
    f.Write Now
    f.Close
    End
End Sub

Om du har VB runtime installerat, kan du hämta exe-filen här:
upTime.exe

Om du inte har VB runtime, har jag gjort ett installationspaket som du hittar här:
upTime.zip

Hoppas att det funkar...

::mikeEast

Just det...

Som du ser finns det ingen errorhandling...

Usch vad dåligt av mig... :r

Men det enda som kan gå fel är ju om användaren som du kör task:en med inte har skrivrättigheter där du väljer att lägga filen...

För jag antar att du kommer att köra detta som en startup task eller nåt...

Jaja... Säg till om du vill ha errorhandling... :birp

::m

Tack så mycket... nu har 4 olika sånna filer :)

Trevligt med hjälpsamma människor.