在asp中创建动态文件夹

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