|
>フォルダを開く
なら、こんな感じです。もちろんイベントマクロではありませんが。
Sub Fol_Open()
Dim objShell As Object, objFolder As Object
Dim FSO As Object, WshShell As Object
Dim FolN As String, SPath As String
Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell _
.BrowseForFolder(0, "フォルダを選択して下さい", 0, "C:\")
If objFolder Is Nothing Then GoTo ELine
FolN = objFolder.Items().Item().Path
Set FSO = CreateObject("Scripting.FileSystemObject")
Set WshShell = CreateObject("WScript.Shell")
SPath = FSO.GetFolder(FolN).ShortPath
WshShell.Run SPath, 3, False
Set FSO = Nothing: Set WshShell = Nothing
ELine:
Set objFolder = Nothing: Set objShell = Nothing
End Sub
|
|