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
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
Bitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben
Content-ID: 53344
Url: https://administrator.de/forum/vbscript-create-datum-eines-folders-53344.html
Ausgedruckt am: 17.04.2025 um 21:04 Uhr
4 Kommentare
Neuester Kommentar

Benzin alle?
Nein - zu teuer - sie hat doch ein anderes Netz.
onegasee59
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')?
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
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')?
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
Na, bastla,
ob chnullo7 Geduld für so viel Prosa mitbringt...? Zeit ist Geld. Deshalb:
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