|
▼カド さん:
>そうですか、VBAでも出来ないことがあるのですね。
>
>補足
>ネットワーク接続出来ていないSQLサーバー(と言っても良く知らないけど)に
>VBAでアクセスして処理をしているコードを見たことがあるので
>てっきり簡単に出来るものと思っていました。
いや、出来ると思うんですけど、私が知らないだけです。
知らないから、こんな物を使ってたりします。
下記コードをメモ帳に張付け、拡張子をvbsに変更。
このファイルをサーバーの棒フォルダに入れ、このファイルのショートカットをデスクトップに作っておき極たまに使ってます。
単純に
ショーカット元のファイルがおいてあるフォルダをエクスプローラーで開くだけですけどね。
FulPass = WScript.ScriptFullName
BPth = left(FulPass,instrrev(FulPass,"\"))
'Shell "Explorer.exe /e," & BPth, vbNormalFocus
WScript.CreateObject("WScript.Shell").Run "Explorer.exe /e," & BPth '& , vbNormalFocus
|
|