文本文件操作类 TxtFileDump Version 2.4

来自 leadbbs 作者 Xinsoft
<%
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''''
''''      FSO.asp
''''
''''      Sub:      CheckFolder(AimFolder)
''''      class:    TxtFileDump
''''
''''      Version: 2.4  Last-Modified: 2005-04-11 12:36
''''      Copyright: Xinsoft ( blogchina.com )
''''
''''
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
%><%
''// 检查目标文件夹是否存在。如果不存字，创建之。
Sub CheckFolder( AimFolder )
     Dim HasFolder
     Dim RealPath
     ''RealPath=Server.MapPath(AimFolder)
     RealPath=AimFolder
     HasFolder=True
   
     Dim FoldA,FoldN,i,CurFolder,HasCur
   
     Dim fso
     Set fso = CreateObject("Scripting.FileSystemObject")
     HasFolder=fso.FolderExists(RealPath)
   
     If HasFolder<>True Then
           ''fso.CreateFolder( RealPath )
           ''Response.Write fso.GetSpecialFolder
           ''Response.Write RealPath
           FoldA=Split( RealPath,"\" )
           FoldN=UBound(FoldA)+1
         
           CurFolder=FoldA(0) & "\"
           For i=1 To FoldN-1
                 CurFolder=CurFolder & FoldA(i) & "\"