テキストファイル


  fs.inc



  
<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>
  










  infoboard   管理者用   
このエントリーをはてなブックマークに追加





フリーフォントWEBサービス
SQLの窓WEBサービス

SQLの窓フリーソフト

素材

一般WEBツールリンク

SQLの窓

フリーソフト

JSライブラリ