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