JP1/Script(Windows(R)用)
SplitFile ( FilePath , SplitSize , 〔DirPath〕 , 〔Option〕 〔, SplitCnt〕 )
値 | 意味 |
---|---|
Delete | ファイルを分割後,FilePathで指定されたファイルを削除します。 |
' ファイル"C:\FDCOPY.TXT"を1.44MBのFDに格納できるように '分割して,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 ' 分割したファイル数分,FDを作成する 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
Copyright (C) 2012, Hitachi, Ltd.
Copyright (C) 2012, Hitachi Solutions, Ltd.