在asp中创建动态文件夹

-1

我有一个asp网页..因为我有上传选项...如果用户输入发票号码，他们重定向上传页面..从那里他们上传所有的文件该特定的发票，它保存在我给它的代码的路径..在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

来源

2013-04-11 Affan

你试过了'FileSystemObject'的'CreateFolder'方法吗？ – SearchAndResQ 2013-04-11 08:00:40

请在createFolder上搜索一下，你会得到很多结果。 – SearchAndResQ 2013-04-12 09:59:54

使用该createFolder我能够创建它..但我需要上传文件到一个文件夹可能还不存在。如何在上传文件之前创建文件夹，或者在asp中有一个参数在复制文件之前创建文件夹，如果它不退出？ – Affan 2013-04-15 05:40:10

要检查文件夹是否存在，并创建它，如果它不，你可以使用这样的事情：

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-12 21:44:34 johna

谢谢你john..but我必须创建一个文件夹名称根据用户输入从窗体中获得.. – Affan 2013-04-13 10:41:41

您可以更改任何文件夹名称，但您必须包括完整路径（或使用Server.MapPath）的sPath。 – johna 2013-04-13 23:44:54

我需要上传文件到一个可能还不存在的文件夹。如何在上传文件之前创建文件夹，或者在asp中有一个参数在复制文件之前创建文件夹，如果它不退出？ – Affan 2013-04-15 04:33:11

在asp中创建动态文件夹

回答

相关问题