|
皆さん大変有り難う御座います。 > rundll32.exe url.dll,FileProtocolHandler c:\ これがどう使っていいのかわからず、これをヒントに調べておりましたら、下のものがみつかり、 c:\testとかを与えるとフォルダ一個のみ開きました。 有り難う御座いました。
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Public Function ShellEx(FileName As String) As Boolean Const SW_SHOWNORMAL = 1 Dim Ret As Long '関連付けられている実行可能ファイルによりファイルを開く Ret = ShellExecute(0, "open", FileName, vbNullString, Environ("windir"), SW_SHOWNORMAL) ShellEx = Ret > 32 End Function
|