VBScript(VBスクリプト)でDIRするには?

VB6,VBA,VBS,EXCEL,DOS,BAT,WSH,WORDの小技メモ

HTML/ CSS/ CGI-Perl/ JavaScript/ JavaApplet/ AccessUp/ Internet/ EnglishLearn/ ちゃいちゃん天使/ 天使メッセージ/ 飯田ワールド/ 結城ワールド/ プロフィール/ WEB相談室/ WEBアンテナ/ 燈明日記/ Perlノート/ 漢字起源/ yahoo

はじめに

本ページは、ウインドウズ系全般のティプスメモです。

そう、はじめはVB系のティプスメモだったのですが…いつの間にか、ウインドウズ系全般のティプスメモになってしまいました。

ちなみに、ティプス(Tips)とは、マニュアルに書かれていない技法や裏わざのことですが、本ページでは、私が経験してこれはと思ったノウハウのメモになっています。

尚、以下は本サイトの最新情報(ブログ)です。

それでは、本ページが何かのお役に立てれば幸いです。ごゆっくりご覧ください。

◆VBScript(VBスクリプト)でDIRするには?

たとえば、フォルダ(ディレクトリ)内のすべてのファイルに対して処理をしたい場合が、結構あります。

VB6では、DIR関数を使って比較的簡単に実装できますが、VBSでは、DIR関数そのものがありません。

したがって、VBSでは、正規表現オブジェクトとFilesコレクションを使います。


留意点として、VB6とVBSはカレントディレクトリが違いますので、これに関しては、以下のリンク先を参照してください。

また、正規表現オブジェクトに関しては、以下のリンク先を参照してください。

VB6

Option Explicit
Dim vntP As Variant

 vntP = Dir("qa*htm", vbNormal)
 Do While vntP <> ""
    
  'フォルダ内の各ファイルに対しての処理を記述する。
    
  vntP = Dir
 Loop

VBS

Option Explicit
Dim fs, f, f1, fc, RE, objWshShell

 Set objWshShell = WScript.CreateObject("WScript.Shell")
 Set RE = CreateObject("VBScript.RegExp")
 RE.Pattern ="qa.*htm"
 Set fs = CreateObject("Scripting.FileSystemObject")
 Set f = fs.GetFolder("objWshShell.CurrentDirectory")
 Set fc = f.Files
 For Each f1 in fc
  If RE.Test(f1.name) then
    
   'フォルダ内の各ファイルに対しての処理を記述する。
    
  End If 
 Next
 Set fs = Nothing
 Set RE = Nothing

おわりに

以下のページには、すべてのTIPSがあります。もしよろしければ、どうぞ!

尚、ご感想、ご意見、誤字、脱字、間違い等がありましたら遠慮なくVB-TIPS掲示板へご指摘ください。