vbs Size属性使用紹介(ファイルサイズの取得)
vbs属性のsize属性を紹介します。参考にしてください。
Size属性
ファイルに対して、指定されたファイルのバイト数を返します。フォルダに対して、そのフォルダ内のすべてのファイルとサブフォルダのバイト数を返します。ファイルのサイズを判断するのに便利です。
説明
object.Size
objectはFileまたはFolderオブジェクトの名前であるべきです。
Folderオブジェクトの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を上書きする必要があるかどうかを確認することであり、必要に応じて自分で取得することができる。