VBを使ってのCD-RWへのバックアップ方法を教えてください。

締切済

質問者：kawakero
質問日時：2007/06/17 16:33
回答数：3件

こんにちは。よろしくお願いします。
ＶＢ５を使って開発しています。
パソコンの環境はWindowsXP（SP2）、データはAccess2003のMDBデータとスキャナで取り込んだ画像ファイルです。
上記２データをＣＤ－ＲＷにバックアップする処理をフォーム上のコマンドボタンを押して実行したいと考えています。
いろいろなサイトなどを探してみてFilecopyやSHFileOperationといったコピーの方法があると知りどちらも試してみたのですが、うまくいきません。間違っている箇所すらわからない状態です。ＣＤ－ＲＷにバックアップを取ることは不可能なのでしょうか。また正しい方法が別に存在するのでしょうか。ご指摘、アドバイスをお願いいたします。
下は実際に作った処理です。
-----------------------------------------------------
Filecopy "D:\data\*.*","E:\back\*.*"
------------------------------------------------------
Private Declare Function SHFileOperation Lib "shell32" Alias "SHFileOperationA" (lpFileOp As SHFILEOPSTRUCT) As Long
Private Type SHFILEOPSTRUCT
hwnd As Long
wFunc As Long
pFrom As String
pTo As String
fFlags As Integer
fAnyOperationsAborted As Long
hNameMappings As Long
lpszProgressTitle As String
End Type
Private Const FO_COPY = &H2
Private Const FO_DELETE = &H3
Private Const FO_MOVE = &H1
Private Const FO_RENAME = &H4
Private Sub Command1_Click()
Dim Ret As Long
Dim sf As SHFILEOPSTRUCT
sf.hwnd = Me.hwnd
sf.wFunc = FO_COPY
sf.pFrom = "D:\data\*"
sf.pTo = "E:\back\"
Ret = SHFileOperation(sf)
If Ret <> 0 Then MsgBox "失敗しました。"
End Sub

通報する

この質問への回答は締め切られました。

質問の本文を隠す

回答 (3件)

最新から表示
回答順に表示

No.3

回答者： redfox63
回答日時：2007/06/18 14:17

API宣言の『Alias "SHFileOperationA"』を削除してみてください

当方 VB6＋WinXP(SP2)の環境で実験したところ Aliasの指定を外したら動作しましたよ

# 何かエラー表示があるならその情報も記述しましょう

この回答への補足

ご回答いただきありがとうございます。
ご指摘のとおりに変更して実行してみたのですが、
「○○をコピーできません。このＣＤのファイルは読み取り専用ですが、この書き込み可能なＣＤに新しいファイルをコピーすると、ディスクにあるファイルを置き換えることができます」というエラーメッセージが表示され、正しく実行されませんでした。
ほかにパソコン側での設定が必要なのでしょうか。

補足日時：2007/06/24 19:45

通報する