|
<SCRIPT language=VBScript RUNAT=server>
Dim FileSystem
' ******************************************************
' 初期化
' ******************************************************
Function FsInit()
If Not IsObject(FileSystem) Then
Set FileSystem = CreateObject("Scripting.FileSystemObject")
End If
End Function
' ******************************************************
' ファイルの読み込みオープン
' ******************************************************
Function FsReadOpen(strFileName)
Call FsInit
Set FsReadOpen = FileSystem.OpenTextFile( _
strFileName, _
Scripting.ForReading _
)
End Function
' ******************************************************
' ファイルの書き込み(作成・上書き)オープン
' ******************************************************
Function FsWriteOpen(strFileName)
Call FsInit
Set FsWriteOpen = FileSystem.CreateTextFile( _
strFileName, _
True _
)
End Function
' ******************************************************
' クローズ
' ******************************************************
Function FsClose(fp)
Call fp.Close()
Set fp = Nothing
End Function
' ******************************************************
' EOF
' ******************************************************
Function FsEof(fp)
FsEof = fp.AtEndOfStream
End Function
' ******************************************************
' ファイルの複写( 上書き )
' ******************************************************
Function FsCopy(strFrom, strTo)
Call FsInit
FileSystem.CopyFile strFrom, strTo, True
End Function
' ******************************************************
' テンポラリディレクトリの取得
' ******************************************************
Function FsGetTmp()
Call FsInit
FsGetTmp = FileSystem.GetSpecialFolder( _
Scripting.TemporaryFolder _
)
End Function
' ******************************************************
' 存在チェック
' ******************************************************
Function FsIsFileExist(Spec)
Call FsInit
FsIsFileExist = FileSystem.FileExists(Spec)
End Function
Function FsIsDirExist(Spec)
Call FsInit
FsIsDirExist = FileSystem.FolderExists(Spec)
End Function
Function FsIsDriveExist(Spec)
Call FsInit
FsIsDriveExist = FileSystem.DriveExists(Spec)
End Function
' ******************************************************
' カレントディレクトリ取得
' ******************************************************
Function FsGetCurDir()
Call FsInit
FsGetCurDir = FileSystem.GetAbsolutePathName(".")
End Function
' ******************************************************
' ファイルの削除
' ******************************************************
Function FsDeleteFile(TargetFile)
Call FsInit
Call FileSystem.DeleteFile(TargetFile, True)
End Function
</SCRIPT>
| |