| |
ＦＤのドライブ（Ａ：）を読み込んでＤドライブに書き込み、また違うＦＤにも書き込みたいのですがＤドライブには書き出せるのですが、別のＦＤに書き込もうとするとファイルが見つかりませんになってしまいます。
ＦＤから別のＦＤには書き込みはできないのでしょうか？
よろしく御願いします。
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
|
|
![[未読]](./data/access/image/read_icon.gif){kind=icon}
