Access VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

2249 / 9994

←次へ　｜　前へ→


	【11022】ドライブの内容をコピーできますか？再度

NEMOTO - 09/2/23(月) 14:20 -


	引用なし

	パスワード

ＦＤのドライブ（Ａ：）を読み込んでＤドライブに書き込み、また違うＦＤにも書き込みたいのですがＤドライブには書き出せるのですが、別のＦＤに書き込もうとするとファイルが見つかりませんになってしまいます。
ＦＤから別のＦＤには書き込みはできないのでしょうか？
よろしく御願いします。

Public Function TFDコピー()
Const cnsSOUR = "A:\*.xls"
Const cnsDEST = "D:\"
Const cnsDEST1 = "A:\"
Dim objFSO As FileSystemObject
Dim intRes As Integer

Set objFSO = New FileSystemObject
objFSO.CopyFile cnsSOUR, cnsDEST, True

MsgBox "ＦＤ（副）に交換してください", vbExclamation

Do
intRes = MsgBox("交換できましたか？", vbYesNo)
Loop Until intRes = vbYes

objFSO.CopyFile cnsSOUR, cnsDEST1, True

Set objFSO = Nothing

End Function

366 hits

▼

【11022】ドライブの内容をコピーできますか？再度 NEMOTO 09/2/23(月) 14:20