SplitFile ( FilePath , SplitSize , 〔DirPath〕 , 〔Option〕 〔, SplitCnt〕 )
値 | 意味 |
---|---|
Delete | ファイルを分割後,FilePathで指定されたファイルを削除します。 |
' ファイル"C:¥FDCOPY.TXT"を分割して一時フォルダ下に"FDCOPY.TXT.001"
' からsplCnt個の分割されたファイルを作成し,FDに格納する。
' (参考)1.44MBのFD = 1423KB = 1423 * 1024B
' 1.25MBのFD = 1221KB = 1221 * 1024B
' 720KBのFD = 713KB = 713 * 1024B
' 640KBのFD = 640KB = 640 * 1024B
Dim file1 ,size1 ,splCnt ,filePath
file1 = "FDCOPY.TXT"
size1 = 1423 * 1024
SplitFile ( "C: ¥"+file1 ,size1 ,_TEMP_ , ,splCnt )
Dim cnt1
For cnt1 = 1 To splCnt
' 分割後ファイル名の作成
filePath = _TEMP_+file1
Select Case Len ( cnt1 )
Case 1
filePath = filePath+".00"+cnt1
Case 2
filePath = filePath+".0"+cnt1
Case Else
filePath = filePath+"."+cnt1
End Select
' 一時フォルダからFDへコピー
Copy ( filePath ,"A:¥" ,Overwrite )
If splCnt - cnt1 <= 0 Then
MessageBox ( "FDへの複写が終了しました。" ,OK )
Exit For
End
MessageBox ( cnt1+1+"枚目のFDに交換してください。" ,OKCancel )
If _MSG_RTN_ = Cancel Then
Exit For
End
Next