画像ファイルのコピー方法 未解決です。

[戻る]
あい [E-Mail] 2007/07/16(月) 14:03:05
何度もトピを立ててしまい申し訳ありません。

開発環境はVisualBasic6.0です。


Zドライブにある画像ファイル(.JPGファイル)を違うドライブ(例えばDドライブ等)にコ
ピーする方法を探しています。



Private Sub Command1_Click()
Dim moto As String '元ファイル
Dim saki As String '先ファイル

'ファイル名を代入
moto = "z:\o\*.jpg" ←全てのJPGファイルを取得したいので『*』をつけたのですが
            これでも大丈夫ですか?
saki = "z:\meibo\a\"

'ファイルをコピーする
FileCopy moto, saki
End Sub


以上のように試してみたのですが同じドライブ内でも「ファイル名または番号が不正で
す。」と言われてしまいました。

どなたかよろしくお願いします。

Blue 2007/07/16(月) 15:49:48
>FileCopy 
ってワイルドカード使えましたっけ?

おそらく、FileSystemObjectでもダメかもしれないので
APIのSHFileOperation関数を使えば確実かと。

まに 2007/07/16(月) 23:28:34
Dir関数で、コピーしたいファイルをすべて取得して
Doループで一つ一つコピーするのが確実かと。

Private Sub Command1_Click()
    Dim Str As String
    Dim Moto As String
    Dim Saki As String
    Moto = "z:\o\"
    Saki = "z:\meibo\a\"
    Str = Dir(Moto & "*.jpg")
    Do Until Str = ""
        FileCopy Moto & Str, Saki & Str
        Str = Dir
    Loop
End Sub

まに 2007/07/16(月) 23:30:04
Blueさんの口調とかぶってしまった…意図的じゃないですよ

古いスレッドには追加発言できません。