<%
'文件操作函數(shù):寫文件
Private Sub WriteFile(FileName,Text)
 Dim fso,file
 Set fso = CreateObject("Scripting.FileSystemObject")
 Set file = fso.CreateTextFile(FileName, True)
   file.Write(Text)
 file.Close
 Set file = Nothing
 Set fso = Nothing
End Sub

'文件操作函數(shù):讀文件
Function ReadFile(FileName)
 Dim fso,file
 Set fso = CreateObject("Scripting.FileSystemObject")
 Set file = fso.OpenTextFile(FileName, 1)
   ReadFile = file.ReadAll()
 file.Close
 Set file = Nothing
 Set fso = Nothing
End Function

'測試文件夾是否存在
Function CheckFolder(Folder)
 Dim fso,Exists
   Set fso = CreateObject("Scripting.FileSystemObject")
 CheckFolder = fso.FolderExists(Folder)
 Set fso = Nothing
End Function

'創(chuàng)建文件夾
Private Sub CreateFolder(Folder)
  Dim fso
  Set fso = CreateObject("Scripting.FileSystemObject")
  fso.CreateFolder(Folder)
  Set fso = Nothing
End Sub

'刪除文件夾
Private Sub DeleteFolder(Folder)
  Dim fso
  Set fso = CreateObject("Scripting.FileSystemObject")
  fso.DeleteFolder(Server.MapPath(Folder))
  Set fso = Nothing
End Sub

'刪除文件
Private Sub DeleteFile(fname)
   Set fso = CreateObject("Scripting.FileSystemObject")
 If fso.FileExists(Server.MapPath(fname)) Then
  Set f = fso.GetFile(Server.MapPath(fname))
  f.delete()
  Set f = Nothing
 End If
 Set fso = Nothing
End Sub

'測試文件夾是否存在，不存在則建立
Private Sub CheckSavePath(FileSavePath)
 p_tmp = Split(FileSavePath,"/")
 Path = ""
 For i = 0 To Ubound(p_tmp)
  If p_tmp(i) = "" Then
   Path = Path & "/"
   Else
    Path = Path & p_tmp(i) & "/"
    If Not CheckFolder(Server.MapPath(Path)) Then Call CreateFolder(Server.MapPath(Path)) 
  End If
 Next
End Sub
%>