ASP中FSO建立、删除、移动目录和文件的常用函数

　　r Foldername

　　LjfDeleteFolder = "Ok"

　　Else

　　LjfDeleteFolder = "NoFolder"

　　End Ifnjcue.com

　　Set fso = Nothing

　　End If

　　End Function

　　Rem 移动目录，参数：DirName; 预拷贝文件的相对路径，DirNewName 拷贝目标名

　　Function LjfMoveFolder(FolderName,FolderNewName)

　　Dim fso,fxlods.com

　　If FolderName <> "" And FolderNewName <> "" Then

　　FolderName = Server.MapPath(FolderName)

　　FolderNewName = Server.MapPath(FolderNewName)

　　Set fso = Server.CreateObject(ObjFSO)

　　fso.MoveFolder FolderName,FolderNewName

　　Set fso = Nothingncydg.com

　　nifdd.com

　　LjfMoveFolder = "Ok"

　　End If

　　End Function

　　Rem 建立文件

　　Function LjfCreateFile(Filename)

　　Dim fso

　　If Filename <> "" Then

　　Filename = Server.MapPath(Filename)

　　Set fso = Server.CreateObject(ObjFSO)

　　If fso.FileExists(Filename) = False Then

　　fso.CreateTextFile Filename

　　LjfCreateFile = "Ok"

　　Elsenifdd.com

　　LjfCreateFile = "FileExists"

　　End If

　　Set fso = Nothing

　　End If

　　End Function

　　Rem 删除文件

　　Function LjfDeleteFile(Filename)

　　Dim fso

　　If Filename <> "" Then

　　Filename = Server.MapPath(Filename)

　　Set fso = Server.CreateObject(ObjFSO)

　　If fso.FileExists(Filename) Then

　　fso.DeleteFile Filename

　　LjfDeleteFile = "Ok"

　　Else

　　LjfDeleteFile = "NoFile"

　　End If

　　Set fso = Nothing

　　End If

　　End Function

　　Rem 移动文件，参数：Filename 预拷贝文件的相对路径，Filenewname 拷贝目标名

　　Function LjfMoveFile(FileName,FileNewName)

　　Dim fso,f

　　If Filename <> "" And FileNewName <> "" Then

　　FileName = Server.MapPath(FileName)

　　FileNewName = Server.MapPath(FileNewName)

　　Set fso = Server.CreateObject(ObjFSO)

　　fso.MoveFile FileName,FileNewName

　　Set fso = Nothing

　　LjfMoveFile = "Ok"

　　End If

　　End Function