-1

我有一个 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
4

1 回答 1

2

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

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
于 2013-04-12T21:44:34.630 回答