Excel VBA質問箱 IV

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

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


33351 / 76738 ←次へ | 前へ→

【48609】Re:複数フォルダの全ファイル取得方法
お礼  もとあし  - 07/4/25(水) 14:24 -

引用なし
パスワード
   ハチ さん、こんにちは。

""""や環境変数についてのご説明ありがとうございました。
よく分かりました。

ところで、Dirコマンドで伺いたいのですが、
色々なサイトでDirコマンドを調べると

DIR [ドライブ:][パス][ファイル名] [/A[[:]属性]] [/B] [/C] [/D] [/L] [/N]
[/O[[:]ソート順]] [/P] [/S] [/T[[:]タイムフィールド]] [/W] [/X]

と説明されています。
ハチさんの
>Const Dir_Opt As String = "/S /B /A:-D" 'Dirオプションの指定(コマンドプロンプトで確認)
>
>myPath = "e:Work" 'ルートパスの指定
>CmdTxt = """dir" & Dir_Opt & " " & """" & myPath & "\" & Target_File & """"""
ですと、[ドライブ:][パス][ファイル名] [/A[[:]属性]] が最後になっている
と思うのです。どちらもコマンドプロンプトで試したのですが、正しく動いているようです。
順番はどちらでも大丈夫なのですか?

またRunメソッドの方法も試しました。
使用している端末はXP Professionalなので%HOMEPATH%は \Documents and Settings\Taro 
かと思ったのですが、C:\Tempに入ってました。
そういえばコマンドプロンプトの表示もC:\Temp>とでてます。
これは会社のPCなので、管理者が変更してるのでしょうか?

はじめ見たとき、全然分からなかったコードが今は、完全とは言えないものの
だいぶ何をしているのかが理解できて、すごく嬉しいです!

ありがとうございました!

>Sub Test2()
>Dim WSH As Object
>Dim CmdTxt As String
>Dim myPath As String
>Dim i As Long
>
>Const Target_File As String = "*.xls"
>Const Dir_Opt As String = "/S /B /A:-D" 'Dirオプションの指定(コマンドプロンプトで確認)
>
>myPath = "e:Work" 'ルートパスの指定
>CmdTxt = """dir" & Dir_Opt & " " & """" & myPath & "\" & Target_File & """"""
>
>'修正
>CmdTxt = "%ComSpec% /C " & CmdTxt & " > %HOMEPATH%\TestDir.txt"
>'確認用に追加。イミディエイトで確認
>Debug.Print CmdTxt
>
>Set WSH = CreateObject("WScript.Shell")
>'Runメソッドに変更
>WSH.Run CmdTxt, 0
>
>Set WSH = Nothing
>
>End Sub

1 hits

【48577】複数フォルダの全ファイル取得方法 もとあし 07/4/23(月) 15:48 質問
【48579】Re:複数フォルダの全ファイル取得方法 ハチ 07/4/23(月) 17:28 回答
【48595】Re:複数フォルダの全ファイル取得方法 もとあし 07/4/24(火) 11:50 お礼
【48597】Re:複数フォルダの全ファイル取得方法 ハチ 07/4/24(火) 14:00 回答
【48609】Re:複数フォルダの全ファイル取得方法 もとあし 07/4/25(水) 14:24 お礼
【48610】Re:複数フォルダの全ファイル取得方法 ハチ 07/4/25(水) 15:47 発言
【48613】Re:複数フォルダの全ファイル取得方法 もとあし 07/4/25(水) 16:08 お礼
【48581】Re:複数フォルダの全ファイル取得方法 ichinose 07/4/23(月) 18:42 発言
【48596】Re:複数フォルダの全ファイル取得方法 もとあし 07/4/24(火) 12:01 お礼
【48612】Re:複数フォルダの全ファイル取得方法 もとあし 07/4/25(水) 15:53 質問
【48618】Re:複数フォルダの全ファイル取得方法 ichinose 07/4/25(水) 19:52 発言
【48627】Re:複数フォルダの全ファイル取得方法 もとあし 07/4/26(木) 10:31 お礼
【48638】Re:複数フォルダの全ファイル取得方法 ichinose 07/4/26(木) 22:01 発言
【48639】Re:複数フォルダの全ファイル取得方法 追伸 ichinose 07/4/27(金) 7:32 発言
【48642】Re:複数フォルダの全ファイル取得方法 追伸 もとあし 07/4/27(金) 12:02 お礼

33351 / 76738 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free