动态文件夹创建

Question

我有一个asp网页..在我有上传选项…如果用户输入发票号码，然后重定向到上传页面。从那里，他们上传了该特定发票的所有文档并保存在我在代码中给出的路径中。

我现在需要的是我需要以用户输入的发票号码的名称生成文件夹，所有上传的文档将保存在该文件夹中。

我需要检查一个目录是否存在，如果不存在则创建它。但我正在努力如何在经典ASP中做到这一点。

任何帮助都是非常感谢的

这是我的asp代码

Public Sub SaveToDisk(sPath)
        Dim oFS, oFile
        Dim nIndex
        If sPath = "" Or FileName = "" Then Exit Sub
        If Mid(sPath, Len(sPath)) <> "" Then sPath = sPath & ""
        Set oFS = Server.CreateObject("Scripting.FileSystemObject")
        If Not oFS.FolderExists(sPath) Then Exit Sub
        Set oFile = oFS.CreateTextFile(sPath & FileName, True)
        For nIndex = 1 to LenB(FileData)
            oFile.Write Chr(AscB(MidB(FileData,nIndex,1)))
        Next
        oFile.Close
    End Sub

Answer 1

要检查文件夹是否存在，如果不存在则创建它，您可以使用如下命令:

Dim oFS, oF
Set oFS = Server.CreateObject("Scripting.FileSystemObject")
If Not oFS.FolderExists(sPath) Then
    Set oF = fs.CreateFolder(sPath)
    Set oF = Nothing
End If
Set oFS = Nothing