JP1/Script(Windows(R)用)
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
Copyright (C) 2012, Hitachi, Ltd.
Copyright (C) 2012, Hitachi Solutions, Ltd.