File.asp

File.asp

<%
Option Explicit
'-----FSO對象-----
Dim fs,ts,path
path=Request.ServerVariables("PATH_TRANSLATED")
path=Left(path,Len(path)-8)
Set fs=Server.CreateObject("Scripting.FileSystemObject")
'TextStream=FileObject.CreateTextFile(FileName,OverWrite,Unicode(true)OrASC(false))
Set ts=fs.CreateTextFile(path & "test.txt",True,False)
'TextStream=FileObject.OpenTextFile(FileName,IOMode,Create,Format)
'IOMode:1-唯讀,2-可寫,8-追加
'Format:-1-Unicode,0-ASCII,-2-原先格式
Set ts=fs.OpenTextFile(path & "test.txt",1,True,0)
'FileObject.CopyFile source,destination,overwrite
fs.CopyFile path & "test.txt",path & "testCopy.txt",True
fs.CopyFile path & "test.txt",path & "testCopy2.txt",True
'FileObject.DeleteFile FileName,Flag(是否刪唯讀檔案)
fs.DeleteFile path & "testCopy2.txt",True
'FileObject.FileExists(FileName)
Response.Write(fs.FileExists(path & "test.txt"))
Response.Write(fs.GetExtensionName(path & "test.txt"))
Response.Write(fs.GetFile(path & "test.txt"))
Response.Write(fs.GetFileName(path & "test.txt"))
fs.MoveFile path & "testCopy.txt",path & "testCopy.txt"
'FileObject.CopyFolder Source,Destination,Overwrite
'FileObject.MoveFolder Source,Destination
'FileObject.CreateFolder(FolderName) 若目錄已存在則會發生錯誤
'FileObject.DeleteFolder FolderName,Flag(是否刪唯讀)
'FileObject.FolderExists(FolderName)
Response.Write(fs.GetFolder(path))
Response.Write(fs.GetParentFolderName(path))
'WindowsFolder:0 SystemFolder:1 TemporaryFolder:2
Response.Write(fs.GetSpecialFolder(0))
Response.Write(fs.GetTempName)
Response.Write(fs.GetDrive("C:"))
Response.Write(fs.GetDriveName(path))
Response.Write(fs.DriveExists("G:"))
Dim drive
For Each drive in fs.Drives 
    Response.Write(fs.GetDriveName(drive))
Next
Response.Write("E盤當前的目錄是" & fs.GetAbsolutePathName(path))
Response.Write("路徑的上一級是" & fs.GetAbsolutePathName(path & ".."))
Response.Write("路徑下的子目錄" & fs.GetAbsolutePathName(path & "test"))
'返回不包括副檔名的檔案名稱
Response.Write(fs.GetBaseName(path & "test.txt"))

'-----TextStream 對象-----
Set ts=fs.OpenTextFile(path & "test.txt",2,True,0)
ts.Write "I am a good boy." & vbCrLf & "How are you?"
Set ts=fs.OpenTextFile(path & "test.txt",1,True,0)
Do While NOT ts.AtEndOfLine 
    Response.Write(ts.Read(1))
Loop
Do While Not ts.AtEndOfStream 
    Response.Write(ts.ReadLine)
Loop
Response.Write("現在檔案指標在第" & ts.Column & "列")
Response.Write "現在檔案指標在第" & ts.Line & "行"
ts.Close
Set ts=fs.OpenTextFile(path & "test.txt",1,True,0)
Response.Write(ts.ReadAll)
Set ts=fs.OpenTextFile(path & "test.txt",1,True,0)
ts.Skip(5)
Response.Write(ts.Read(1))
ts.SkipLine
Response.Write(ts.Read(1))
'ts.WriteBlankLines(空白行數)
%>