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