Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

65322 / 76733

←次へ　｜　前へ→


	【15986】Re:DOSにてファイルコピーに関して

ちゃっぴ - 04/7/13(火) 23:15 -


	引用なし

	パスワード

>FileCopy ステートメントじゃダメなんですかね。

パス名が長いとFileCopy ステートメントはエラーになるので
FileSystemObjectのCopyFile、もしくはCopyメソッドを
使用したほうがいいと思います。

また、

> ファイルオープン = ファイルオープン.Items().Item().Path & "\"

は感心しません。ファイルオープンはオブジェクト型(Shell32.Folder)と
String型になりますので、Variant型変数以外で宣言されていると
エラーになります。

どうせやるなら、
Dim ファイルオープン As Object
Dim コピー先ファイル名 As String

コピー先ファイル名 = ファイルオープン.Items().Item().Path & "\" _
　　 & "TEST.txt"

としたほうがいいと思います。

Dosコマンドを実行するときはパス名に半角スペースが含まれる場合を考慮して、
パス名全体をダブルコーテーションで囲っておいたほうがいいです。

あと、Shell関数は別のプロセスとして動作するため、
Shell関数を呼び出したものの終了後、
何かを実行する場合には、プロセスが終了するまで
待機するようプログラミングする必要があります。

これを避けるには、WSHのRUNメソッドを使用して
呼び出す方法があります。
こちらなら、引数指定で終了するまでプロシジャーの実行を
待機させることができます。

3 hits

▼

【15964】DOSにてファイルコピーに関して yasu 04/7/13(火) 16:43