tagCANDY CGI VBレスキュー(花ちゃん)の Visual Basic 6.0用 掲示板
VBレスキュー(花ちゃん)の Visual Basic 6.0用 掲示板
[ツリー表示へ]  [ワード検索]  [Home]

タイトル CopyHereのオプションについて
投稿日: 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のオプションは無効なのでしょうか?


ご返信の程、どうぞよろしくお願い致します。    
        
              

- 関連一覧ツリー をクリックするとツリー全体を一括表示します)

古いスレッドにレスはつけられません。