thorti85
Oct 26, 2009, updated at 15:35:05 (UTC)
view22733
view2
0
Goto Top

Dateieigenschaften mit VBScript

GermansolvedQuestionVB for ApplicationsDevelopment

Mein Problem:
Auf einem Fileserver gibt es viele Dateien, deren "Dateigröße" sich von der" DAteigröße auf dem Datenträger" unterscheidet.
Über die Eigenschaften sieht man z.B. eine Dateigröße von 350KB, wohingegen die Dateigröße auf dem Datenträger nur 4KB lautet.

Hallo allerseits,

ist es möglich per VBScript über die Dateieigenschaften die "Dateigröße auf dem Datenträger" zu erfahren?
Die Dateigröße an sich stellt kein Problem dar, die kann man einfach mit "Size" herausbekommen.
Aber finde ich nun leider keinen "Befehl" für die Größe auf dem Datenträger und weiß leider auch nicht wie ich das anders realisieren kann.

Viele Grüße (und schonmal vielen Dank für kommende Antworten)
Thorsten
comment-contentCommentShareShare
Share on Facebook Share on Twitter Share on Reddit Share on Linkedin

Content-Key: 127945

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

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

2 Comments
Latest comment
Goto Top
Member: TsukiSan
TsukiSan Oct 26, 2009 at 22:58:51 (UTC)
Goto Top
Hallo T-Rule,

hilft dir
Set objFSO = CreateObject("Scripting.FileSystemObject")  
Set objFile = objFSO.GetFile("c:\Test.txt")  

Wscript.Echo "Date created: " & objFile.DateCreated  
Wscript.Echo "Date last accessed: " & objFile.DateLastAccessed  
Wscript.Echo "Date last modified: " & objFile.DateLastModified  
Wscript.Echo "Drive: " & objFile.Drive  
Wscript.Echo "Name: " & objFile.Name  
Wscript.Echo "Parent folder: " & objFile.ParentFolder  
Wscript.Echo "Path: " & objFile.Path  
Wscript.Echo "Short name: " & objFile.ShortName  
Wscript.Echo "Short path: " & objFile.ShortPath  
Wscript.Echo "Size: " & objFile.Size  
Wscript.Echo "Type: " & objFile.Type
das eventuell weiter?

Gruß
Tsuki
Member: thorti85
thorti85 Dec 02, 2009 at 16:43:12 (UTC)
Goto Top
Hey Tsuki,

Der Code funktioniert, vielen Dank!
Leider ist mein Problem doch ein Anderes, daher brauch ich ihn leider nicht!

Dennoch vielen Dank für deine Mühe!

Viele Grüße
Thorsten
GermansolvedQuestionVB for ApplicationsDevelopment
Hotly discussed
gleixnerdCheck of ZFW Firewallgleixnerd - 3 CommentsAlexWishaHow to set up and configure a Linux GRE tunnelAlexWisha - 3 CommentsjstrickerWIREGUARD VPN ON UDM PRO BEHIND FRITZBOX - HANDSHAKE DID NOT COMPLETEjstricker - 3 CommentsDaniEnd of Support dates for Office 2016, 2019 Apps und Productivity ServersDani - 1 Comment