VBScript 簡素にファイルチェック

最近はめっきりVBScriptも触っていませんが、
ソフトウェア管理支援システム開発日記も使用しなくなったので、
置いておいたら便利な分だけ引っ越してきておきます。

サンプルとしては、ファイル(フォルダ)の存在チェック、新規作成/削除や拡張子取得などですね。
進級制作で作っていたときに必要だった情報です。
Option Explicit

' フォルダ名指定
Dim fdName, flName, cMsg
fdName = "iroha"
flName = fdName & "\test.txt"

' FileSystemObject呼び出し
Dim Fso
Set Fso = CreateObject( "Scripting.FileSystemObject" )

' ◆フォルダ存在チェック
If Not Fso.FolderExists( "iroha" ) Then

 ' 無ければ作成
 Fso.CreateFolder( "iroha" )

End If


' ◆ファイル存在チェック
If Not Fso.FileExists( flName ) Then
 
 ' 無ければ作成
 Fso.CreateTextFile( flName )

End If

' ◆ファイルの拡張子のみを表示
Msgbox( "拡張子：" & Fso.GetExtensionName( flName ) )

' ◆フォルダ内ファイル数カウント
Msgbox( "ファイル数：" & Fso.GetFolder( fdName ).Files.Count )

' Msgboxの戻り値をcMsgに格納
cMsg = Msgbox( "「" & fdName & "」を削除しますか？", vbYesNo, "確認" )
' 「はい」の場合
If cMsg = vbYes Then
 ' ◆フォルダ丸ごと削除
 Fso.DeleteFolder( fdName )
End If