Private Sub Command1_Click()

Dim Dirstring As String

CommonDialog1.DialogTitle = "选择工作目录"

CommonDialog1.Filter = "MDS文档(*.GWD)|*.GWD"

CommonDialog1.Action = 1

Dirstring = CommonDialog1.FileName

For i = Len(Dirstring) To 1 Step -1

If Mid(Dirstring, i, 1) Like "" Then Exit For

Next i

If Len(Dirstring) = 0 Then

Exit Sub

End If

Text1.Text = Mid(Dirstring, 1, i - 1)

End Sub

Private Sub Command2_Click()

On Error Resume Next

Dim Fso As Object

Dim SFILE As Object

Dim Mpath As String

Dim Ws As Object

Set Ws = CreateObject("wscript.shell")

Set Fso = CreateObject("scripting.filesystemobject")

Open Text1.Text & "\MDsP.vbs" For Output As #1

If Text1.Text = "" Then Exit Sub

Print #1, "On Error Resume Next"

Print #1, "Dim Ws, Fso, Sname"

Print #1, "Set Ws = CreateObject(""" + "Wscript.Shell" + """)"

Print #1, "Set Fso = CreateObject(""" + ("Scripting.FileSystemobject") + """)"

Print #1, "Set Fs = Fso.GetFolderWs.currentdirectory.Files"

Print #1, "MsgBox  """ + "程序即将开始点击确定后请不要有任何的操作" + """ , , """ + "系统提示" + """"

Print #1, "i = 0"

Print #1, "For Each x In Fs"

Print #1, "Sname = x.name"

Print #1, "If InStr(1,Sname ,  """ + "-" + """) = 0 Then"

Print #1, "If Fso.GetextensionName(x) =""" + "GWD" + """ Then"

Print #1, "i = i + 1"

Print #1, "Ws.run x"

Print #1, "Wscript.sleep 1000"

Print #1, "Ws.SendKeys""" + "output" + """"

Print #1, "Wscript.sleep 80"

Print #1, "Ws.SendKeys""" + "{" + "Enter" + "}"" "

Print #1, "Wscript.sleep 80"

Print #1, "Ws.SendKeys""" + "{" + "down" + "}" + """"

Print #1, "Ws.SendKeys""" + "{" + "Enter" + "}"" "

Print #1, "Wscript.sleep 580"

Print #1, "Ws.SendKeys""" + "%" + "s" + """"

Print #1, "End If"

Print #1, "End If"

Print #1, "Next"

Print #1, "Wscript.sleep 80"

Print #1, "MsgBox """ + "共导出" + """ & i & """ + "个明细表" + """, , """ + "系统提示" + """"

Print #1, "FSo.deletefile Wscript.Scriptfullname"

Close #1

Shell "cmd /c" & Text1.Text & "\MDsP.vbs"

End Sub