| |
▼カド さん：
>そうですか、ＶＢＡでも出来ないことがあるのですね。
>
>補足
>ネットワーク接続出来ていないSQLサーバー（と言っても良く知らないけど）に
>ＶＢＡでアクセスして処理をしているコードを見たことがあるので
>てっきり簡単に出来るものと思っていました。
いや、出来ると思うんですけど、私が知らないだけです。
知らないから、こんな物を使ってたりします。
下記コードをメモ帳に張付け、拡張子を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
|
|
Jaka
- 06/4/5(水) 9:23 -
