|
分類:[VB.NET]
おはようございます。
お返事ありがとうございます。
> ファイル分割、、、かな？
そうなります。
Do While FileSize > 0 'データ総容量が0になるまで
'ファイル作成
Dim outfileName As String = "出力先ファイル名"
Dim outFile As New FileStream(outfileName, FileMode.Create, FileAccess.Write)
If FileSize >= freeSpace Then 'MDBファイルのサイズがドライブの空き容量より大きい
'ファイルを開く
Dim fs As New BinaryReader(New FileStream("ファイル名", FileMode.Open))
'15000ごとにデータを区切る
B = fs.ReadBytes(15000)
outFile.Write(B, 0, B.Length)
'データベースのコピー File.Copy(outfileName, 出力先ファイルパス, False)
Else
Dim nokori As Byte
nokori = FileSize - B.Length
outFile.Write(B, 0, nokori)
'ファイル最後にENDをつける
File.Move(outfileName, 出力先ファイルのパス & "END")
End If
count = count + 1
としました。
しかし、
『File.Copy(outfileName, A_Fname, False)』で
'System.NotSupportedException' のハンドルされていない例外が mscorlib.dll で発生しました。
追加情報 : 指定されたパスのフォーマットはサポートされていません。
なぜそうなったのか分かりません・・。
出力先に指定したパス名は下記です。
出力先ファイルパス = Drive & "DISK" & Format(count, "000") & "-" & System.DateTime.Now
ご指摘よろしくお願いします。
|