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

asp中的动态文件夹创建

1 个答案: