GetFileSize ( PathName 〔, UnitofByte〕 )
値 | 意味 |
---|---|
Byte | バイト |
KB | キロバイト |
MB | メガバイト |
' コピー元ファイルの容量を調べ,コピー先ディスクに書き込める
' 空き容量があればファイルをコピーする。
Dim path1 ,path2 ,fileSz ,freeSz
path1 = _SCF_+"Bkup.txt"
path2 = "A:"
fileSz = GetFileSize ( path1 )
freeSz = GetDiskFreeSpace ( path2 ,KB )
If ( freeSz * 1024 ) >= fileSz Then
Copy ( path1 ,path2 )
End If