1,502
社区成员
发帖
与我相关
我的任务
分享
Option Explicit
Private Sub Command1_Click()
Dim sFileName As String
Dim hFile As Integer
sFileName = "Z:\temp\1.bat"
hFile = FreeFile()
Open sFileName For Output Access Write As #hFile
Print #hFile, "@ECHO OFF"
Print #hFile, "DIR*.jpg /s"
Close #hFile
Shell sFileName, vbNormalFocus
End Sub