FileSystemObjectオブジェクト


ファイルが存在するか調べる (FileExists メソッド)


'//ファイルが存在するか調べる
'//     指定された名前のファイルが無ければ終了
Dim objFS
Set objFS = CreateObject("Scripting.FileSystemObject")
If objFS.FileExists(ファイルのパス) = False Then
    MsgBox "該当するファイルが有りません",48
    WScript.Quit
End If

戻る

フォルダが存在するか調べる、フォルダを作る
(FileExists メソッド、CreateFolder メソッド)


'//フォルダが存在するか調べる
'//     指定されたフォルダが無ければ作る
Dim objFS
Set objFS = CreateObject("Scripting.FileSystemObject")
If objFS.FolderExists(フォルダのパス) = False Then
    objFS.CreateFolder(フォルダのパス)
End If

戻る

ファイル名を調べる (GetFileName メソッド)


'//ファイル名を調べる
Dim objFS
Dim strFName
Set objFS = CreateObject("Scripting.FileSystemObject")
strFName = objFS.GetFileName(ファイルのパス)

戻る

ファイルのベース名を調べる (GetBaseName メソッド)


'//ファイルのベース名を調べる
Dim objFS
Dim strBaseName
Set objFS = CreateObject("Scripting.FileSystemObject")
strBaseName = objFS.GetBaseName(ファイルのパス)

戻る

ファイルの拡張子を調べる (GetExtensionName メソッド)


'//ファイルの拡張子を調べる
Dim objFS
Dim strExName
Set objFS = CreateObject("Scripting.FileSystemObject")
strExName = objFS.GetExtensionName(ファイルのパス)

戻る

パスの親フォルダを取得する (GetParentFolderName メソッド)


'//指定したパスの親フォルダを取得する
Dim objFS
Dim strPFName
Set objFS = CreateObject("Scripting.FileSystemObject")
strPFName = objFS.GetParentFolderName(ファイルやフォルダのパス)

戻る

ファイルをコピーする (CopyFile メソッド)


'//ファイルをコピーする
Dim objFS
Set objFS = CreateObject("Scripting.FileSystemObject")
If objFS.FolderExists(コピー先フォルダのパス) = False Then
    objFS.CreateFolder(コピー先フォルダのパス)
End If
objFS.CopyFile コピー元ファイルのパス,コピー先のパス [,(上書きフラグ)]

戻る

テキストファイルを作る (CreateTextFile メソッド)


'//テキストファイルを作って文字列を書き込む
Dim objFS, objFile
Set objFS = CreateObject("Scripting.FileSystemObject")
Set objFile = objFS.CreateTextFile(作成するファイルのパス [,_
    上書きフラグ [,文字コード]])
objFile.WriteLine(文字列)
objFile.Close

戻る

一時ファイルを作る(例) (GetTempName メソッド)


'//一時ファイルを"C:\Script\temp"内に作る
'//     テンポラリ用フォルダがあるか? なければ作る
Dim objFS, objFile
Dim fileTemp
Set objFS = CreateObject("Scripting.FileSystemObject")
If objFS.FolderExists("C:\Script\temp") = False Then
    objFS.CreateFolder("C:\Script\temp")
End If
'//     テンポラリファイルを作成
fileTemp = objFS.GetTempName
Set objFile = objFS.CreateTextFile("C:\Script\temp\" & fileTemp)

'//(処理)

'//     テンポラリファイルを削除する
objFS.DeleteFile "C:\Script\temp\" & fileTemp

戻る