'检查某一文件是否存在
Function CheckFile(FilePath)
Dim fso
'Filepath=Server.MapPath(FilePath) '网站相对路径
Set fso = Server.CreateObject("Scripting.FileSystemObject") '网络绝对路径
If fso.FileExists(FilePath) then
'存在
CheckFile = True
Else
'不存在
CheckFile = False
End if
Set fso = nothing
End Function
'检查目录是否存在
Function CheckDir(FolderPath)
dim fso
'folderpath=Server.MapPath(".")&"\"&folderpath '网站相对路径
Set fso = Server.CreateObject("Scripting.FileSystemObject") '网络绝对路径
If fso.FolderExists(FolderPath) then
'存在
CheckDir = True
Else
'不存在
CheckDir = False
End if
Set fso = nothing
End Function
<%
'-------------------------
'--建立目录 网站相对路径
'----------------------
Function MakeNewsDir(byval foldername)
dim fso
Set fso = Server.CreateObject("Scripting.FileSystemObject")
fso.CreateFolder(Server.MapPath(foldername))
If fso.FolderExists(Server.MapPath(foldername)) Then
MakeNewsDir = True
Else
MakeNewsDir = False
End If
Set fso = nothing
End Function
%>
'-------------------------
'--建立目录 网络绝对路径
'----------------------
Function MakeNewsDir(byval foldername)
dim fso2
Set fso2 = Server.CreateObject("Scripting.FileSystemObject")
fso2.CreateFolder(up_SavePath)
If fso.FolderExists(up_SavePath) Then
MakeNewsDir = True
Response.Write("目录已建立"& "<BR>")
Else
MakeNewsDir = False
Response.Write("目录未建立"& "<BR>")
End If
Set fso2 = nothing
End Function