So-net無料ブログ作成

VBScript でファイル選択ダイアログ(再び) [Windows/ASP/VBScript]

以前、 VBScript でファイル選択ダイアログを出す方法を知って、
http://nakagami.blog.so-net.ne.jp/2006-07-04
早速使わせてもらっていた。
・・・が、 OS と Office のバージョンが上がったら動かなくなってしまった。

こりゃやばい、と思って何とか策を探そうとしたら、発見。
http://www.tek-tips.com/faqs.cfm?fid=5310
Set objDlg = CreateObject("UserAccounts.CommonDialog")
If objDlg.ShowOpen = True Then
    strFileName = objDlg.FileName
End If

これなら動く。よかった。
表示するファイルの種類のフィルターもかけられるみたい。

Windows XP から、コモンダイアログの機能が使えるようになったらしい。すばらしい。
http://www.microsoft.com/japan/technet/scriptcenter/resources/qanda/jan05/hey0128.mspx
nice!(0)  コメント(6)  トラックバック(0) 
共通テーマ:パソコン・インターネット

nice! 0

コメント 6

Ellemossy

Does Amoxicillin Help A Boil Amoxicillin Cause Gas Cytotec Without Prescription <a href=http://bestlevi.com>generic levitra on line</a> International Pharmacy Cialis
by Ellemossy (2019-06-20 15:21) 

Auststeend

Dove Comprare Cialis In Italia Propecia Kaytto <a href=http://cialtadalaff.com>cialis generic</a> Cephalexin Information Lyme Disease Amoxicillin Best Prices For On Line Levitra
by Auststeend (2019-07-08 19:15) 

Stepgit

Amoxicillin Clavulan Dosage Information Dove Acquistare Il Viagra Senza Ricetta Propecia Generique Prix <a href=http://sildenaf75.com>online pharmacy</a> Cialis Gli Effetti
by Stepgit (2019-07-08 21:17) 

Ellemossy

Oral Amoxil Solution Buying Lasix Online order accutane online australia <a href=http://4rxday.com>cialis 40 mg</a> Cheap Viagra Super P Force Contraindications Of Keflex Cialis Prices Canada
by Ellemossy (2019-07-13 03:14) 

Auststeend

Tadalafil Generico Italia Cialis 5 Mg Tadalafil Differin Buy Paypal <a href=http://crdrugs.com>cialis</a> Where Can I Buy Alli Canada direct isotretinoin where to order medication without rx West Lothian
by Auststeend (2019-07-25 21:52) 

Stepgit

Quand Prendre Baclofene <a href=http://orderciali.com>buy cialis</a> Where To Order Fluoxetine Buy Professional Viagra On Line Flagyl Generic Form
by Stepgit (2019-07-27 15:09) 

コメントを書く

お名前:
URL:
コメント:
画像認証:
下の画像に表示されている文字を入力してください。

Facebook コメント

トラックバック 0