vbs Size属性使用紹介(ファイルサイズの取得)

1533 ワード

vbs属性のsize属性を紹介します。参考にしてください。
Size属性
ファイルに対して、指定されたファイルのバイト数を返します。フォルダに対して、そのフォルダ内のすべてのファイルとサブフォルダのバイト数を返します。ファイルのサイズを判断するのに便利です。
説明
object.Size
objectはFileまたはFolderオブジェクトの名前であるべきです。
FolderオブジェクトのSize属性例:

Function ShowFolderSize(filespec)  
Dim fso, f, s  
Set fso = CreateObject("Scripting.FileSystemObject")  
Set f = fso.GetFolder(filespec)
s = UCase(f.Name) & "     " & f.size & "   。"
ShowFolderSize = s 
End Function
いくつかのファイルのサイズを取得してコピーする必要がありますか?

Dim fso
Set fso = CreateObject("Scripting.FileSystemObject")
f1="d:\webroot
ews.html" f2="d:\webroot2
ews.html" fsize=3000 set fn2=fso.GetFile(f1) flsize2=fn2.size fldate2=fn2.datelastmodified set fn=fso.GetFile(f2) flsize1=fn.size fldate1=fn.datelastmodified If fso.FileExists(f1) and flsize2>fsize and fldate2>fldate1 Then fso.getfile(f1).copy(f2) if err.number=0 then WriteHistory " "&now()&".........","log.txt" end if Sub WriteHistory(hisChars, path) Const ForReading = 1, ForAppending = 8 Dim fso, f Set fso = CreateObject("Scripting.FileSystemObject") Set f = fso.OpenTextFile(path, ForAppending, True) f.WriteLine hisChars f.Close End Sub
主な機能は、f 1のファイル生成時間とサイズを判断して、第二の文書f 2を上書きする必要があるかどうかを確認することであり、必要に応じて自分で取得することができる。