|
▼にー さん、りんさん
こんばんは。
>お二人のおかげで無事やりたいことが出来ました。
それはよかったのですが、何故元コードが駄目なのか
不明ですねえ??
Wshのバージョンが違うのでしょうかねえ??
ひとつだけ気になった点が・・・。
りんさんのコードをお借りして
>Sub フォルダオープン(変数1 As String, 変数2 As String)
>'
> Dim objShell As Object, objFolder As Object
> Dim FSO As Object, WshShell As Object
Dim FolN , SPath ,A$ '(A As String)
' ↑このように型宣言なしで試してみて頂きたいのですが・・
>
> FolN = "\\ネットワーク共有フォルダ\○○\" & 変数1 & "\" & 変数2
> 'フォルダチェック
> On Error Resume Next
> A$ = Dir(FolN, vbDirectory)
> On Error GoTo 0
> '分岐
> If A$ = "" Then
> MsgBox FolN, vbExclamation, "Folder Not Found"
> Else
> Set objShell = CreateObject("Shell.Application")
> Set FSO = CreateObject("Scripting.FileSystemObject")
> Set WshShell = CreateObject("WScript.Shell")
> 'SPath = FSO.GetFolder(FolN).ShortPath 'この行はいらないと思う
> WshShell.Run FolN, 3, False
> Set FSO = Nothing: Set WshShell = Nothing
> Set objFolder = Nothing: Set objShell = Nothing
> End If
>End Sub
元々WshはVBS等のスクリプト言語で使う事を目的としていたみたいなので
VBSでは、変数の型宣言がないですよね?
別件でしたが、これで動いた事があったことを思い出したので・・・。
もし、これを見ることがありましたら、試してみて下さい。
また、この投稿をご覧になっている方で
にー さんの元コードでエラーが発生した方に
試していただけるとはっきりするのですが・・。
|
|