何度もトピを立ててしまい申し訳ありません。
開発環境は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
以上のように試してみたのですが同じドライブ内でも「ファイル名または番号が不正で
す。」と言われてしまいました。
どなたかよろしくお願いします。
>FileCopy
ってワイルドカード使えましたっけ？
おそらく、FileSystemObjectでもダメかもしれないので
APIのSHFileOperation関数を使えば確実かと。
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
Blueさんの口調とかぶってしまった…意図的じゃないですよ
返信する
最新の投稿: お久しぶりです、いかがお過ごしでしょうか。 最新のメンバー: gantez 最近の投稿 未読の投稿
