tagCANDY CGI VBレスキュー(花ちゃん)の Visual Basic 6.0用 掲示板 [ツリー表示へ]   [Home]
一括表示(VB6.0)
タイトルCopyHereのオプションについて
記事No16086
投稿日: 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のオプションは無効なのでしょうか?


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

[ツリー表示へ]
タイトルRe: CopyHereのオプションについて
記事No16089
投稿日: 2015/03/23(Mon) 22:21
投稿者花ちゃん
回答ではありませんが、どなたからもレスが無いようなので。

> Windowsにコピーした場合はオプションが有効になりました。
だったら、CopyHere うんぬんよりもポータブルデバイスの設定とか仕様を調べる方が先決だと思うのですが。

ポータブルデバイス が何を指しているのか?
実際に事象を他の人が再現できるようなコード(説明)でも投稿して頂かないとこのままレスがつかないかも。

[ツリー表示へ]
タイトルRe^2: CopyHereのオプションについて
記事No16090
投稿日: 2015/03/24(Tue) 09:39
投稿者umi
> 回答ではありませんが、どなたからもレスが無いようなので。
>
> > Windowsにコピーした場合はオプションが有効になりました。
> だったら、CopyHere うんぬんよりもポータブルデバイスの設定とか仕様を調べる方が先決だと思うのですが。
>
> ポータブルデバイス が何を指しているのか?
> 実際に事象を他の人が再現できるようなコード(説明)でも投稿して頂かないとこのままレスがつかないかも

ご返信ありがとうございます。コード不足も申し訳ございません。
ポータブルデバイスは主にスマートフォンを対象にしております。

> だったら、CopyHere うんぬんよりもポータブルデバイスの設定とか仕様を調べる方が先決だと思うのですが。

はい。「なぜMTP接続したままポータブルで消したファイルがPCで見るといつまでも残り、同期しないのか…」
が原点だったのですが、上書きオプションが有効ならばと思ったので投稿させて頂きました。
自身で、よりポータブルの仕様を調べてみます。
ありがとうございました。

[ツリー表示へ]