asp实现检查目录是否存在与建立目录的函数

ttx9n

'-------------------------
'--检查目录是否存在
'----------------------
Function CheckDir(byval FolderPath)
    dim fso
    Set fso = Server.CreateObject("Scripting.FileSystemObject")
    If fso.FolderExists(Server.MapPath(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

0608fv3

有什么好的服务器

醉梦娱乐网

iiguuubhuiuihu

Anthonylam

来看看怎么样

kwzc65wdj

天天源码社区论坛

123456

哈哈哈哈哈哈哈

ki9ku6

谢谢小Y分享

ki9ku6

人都不在了啊 啊

123456

看看看咋么

wxrf98xr

非常vbcbvcvbvcb