chnollu7
Goto Top

VBScript Create Datum eines Folders

Warum fuktioniert das ned?

Dim fso, folder
dim strDateCreated, strDateLastAccessed, strDateLastModified

Set fso = Server.CreateObject("Scripting.FileSystemObject")
Set folder = fso.GetFolder("C:\test\")
strDateCreated = folder.DateCreated
strDateLastAccessed = folder.DateLastAccessed
strDateLastModified= folder.DateLastModified
set folder = nothing
set fso = nothing


Fehlermeldung:

Windows Script Host


Script: H:\................

Line: 4

Char: 1
Error: Object required: 'Server'

Code: 800A01A8

Source: Microsoft VBScript runtime error


OK

Content-Key: 53344

Url: https://administrator.de/contentid/53344

Printed on: April 25, 2024 at 19:04 o'clock

Member: Biber
Biber Mar 06, 2007 at 16:42:32 (UTC)
Goto Top
Warum fuktioniert das ned?
Error: Object required: 'Server'

Welche Vermutung drängt sich uns denn förmlich auf? Benzin alle?
Mitglied: 36539
36539 Mar 06, 2007 at 17:06:22 (UTC)
Goto Top
Benzin alle?

Nein - zu teuer - sie hat doch ein anderes Netz. face-wink

onegasee59
Member: bastla
bastla Mar 06, 2007 at 17:25:43 (UTC)
Goto Top
Hallo chnollu7!

Ob wir uns vielleicht wieder einmal über MS wegen irreführender Fehlermeldungen beschweren sollten (richtig müsste es schließlich heißen: Error: Object not required: 'Server')? face-wink

Wie auch immer - abgesehen vom abzuservierenden "Server" bringt das Script ohne irgend eine Form der Verwendung (zB Ausgabe) der mühsam ausgelesenen Daten auch sonst nicht wirklich viel ...

Grüße
bastla
Member: Biber
Biber Mar 06, 2007 at 17:47:38 (UTC)
Goto Top
Na, bastla,

ob chnullo7 Geduld für so viel Prosa mitbringt...? Zeit ist Geld. Deshalb:
'----------GetFolderDates.vbs  
Dim fso, folder
Set fso = CreateObject("Scripting.FileSystemObject")  
Set folder = fso.GetFolder(Wscript.arguments(0))
Wscript.echo "Created       :" & folder.DateCreated  
Wscript.echo "LastAccessed  :" & folder.DateLastAccessed  
Wscript.echo "LastModified  :" & folder.DateLastModified  

set folder = nothing
set fso = nothing

(=18:42:23  D:\temp=)
>cscript //nologo f:\VBS_Beispiele\GetFolderDates.vbs c:\temp
Created       :28.10.2005 09:56:28
LastAccessed  :06.03.2007 17:53:00
LastModified  :06.03.2007 17:00:06