| |
こんにちは。
レスが無いようなので、一つの方法として。
batファイルを作ってしまう方法です。
下記のbatファイルのTest01.txtの部分をパラメータとして渡します。
---batファイル（"i:\test\Test.bat")の内容---
Start Test01.txt
del ダミー.txt
-------------------------------------------
Sub test()
Const batFile As String = "Test.bat"
Const TempFile As String = "ダミー.txt"
Dim myFile As String
Dim myStr As String
Dim fn As Integer
ChDrive "i\:"
ChDir "i:\test"
myFile = "Test01.txt" 'batファイルへ渡すパラメータ
myStr = "Start " & myFile
'同期を取るためのダミーファイル作成
fn = FreeFile
Open TempFile For Output As #fn
Close #fn
Open batFile For Output As #fn
Print #fn, myStr
Print #fn, "del " & TempFile
Close #fn
Shell "cmd /c " & batFile
'バッチ終了（del ダミー.txt)の終了まち
Do Until Dir(TempFile) = ""
DoEvents
Loop
End Sub
では。
|
|
- 03/12/22(月) 17:43 -
