タイトル | : CopyHereのオプションについて |
記事No | : 16086 |
投稿日 | : 2015/03/18(Wed) 14:00 |
投稿者 | : umi |
はじめまして。
OSはWin7です。 PC開発言語はVBAです。 VBA歴は5年です。
現在、PCからMTP接続のポータブルデバイスにファイルをコピーする際の上書き確認について、 調べております。 不具合は、CopyHereのオプションが無効になってしまうことです。 Windowsにコピーした場合はオプションが有効になりました。
現在のソースは
cFlags = FOF_SILENT + FOF_NOCONFIRMATION + FOF_NOCONFIRMMKDIR For Each itm In PcFolder.items 'PcFolder = コピー元PCのフォルダ PortFolder.CopyHere itm, cFlags 'PortFolder = コピー先MTP接続のフォルダ Next
です。
CopyHereで、コピーはできますが、逐一上書き確認の表示がされます。
また、ワイルドカードは無効ですと他のサイトで読みましたので、変数ではなく下記のように PortFolder.CopyHere "C:\Users\Desktop\KEKA.txt", cFlags
とテキスト指定してみましたが上書き確認が表示されてしまいました。
また、下記のように、コピー先をWindowsにすると、上書き確認非表示になりました。 PcFolder.CopyHere "C:\Users\Desktop\\KEKA.txt", cFlags コピー前に、MTP接続先のファイルの削除をkill関数など試しましたがファイルが消えませんでした。
PCとUSBケーブルで繋いだポータブルデバイスのフォルダにて、ファイルを削除した場合、 PCから見た同一のフォルダには削除したはずのファイルが残っていました。 開くことはできませんでしたが。 PCとポータブルフォルダの同期リセットできるような関数があればいいのですが。
13個のテキストをコピーするので、上書き確認を非表示にしたいのですが、MTP接続先にコピーの場合、 CopyHereのオプションは無効なのでしょうか?
ご返信の程、どうぞよろしくお願い致します。
|