|
ハチ さん、こんにちは。
""""や環境変数についてのご説明ありがとうございました。
よく分かりました。
ところで、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
|
|