- 950 名前：デフォルトの名無しさん mailto:sage [2008/03/07(金) 21:29:13 ]
- >>942
Sub hoge()
Dim a As String
Dim w As Object
Dim v As Object
a = ThisWorkbook.Path & "\" & ThisWorkbook.Name
Set w = CreateObject("WScript.Shell")
Set v = w.exec("cmd.exe /c del """ & a)
Application.Quit
' Do Until v.stdout.atendofstream
' MsgBox (v.stdout.readline)
' Loop
End Sub
