代码之家 › 专栏 › 技术社区 › Vikas

如何为经典ASP中的复制文件创建目标目录结构?

copying directory asp-classic

Vikas · 技术社区 · 15 年前

我要将文件复制到目标目录。使用文件系统对象的copyfile命令很简单。但我需要一些增强,比如,

如果目标目录不存在,那么它将创建目标目录,然后复制一个文件。

你能帮我实现吗?

如果有其他方法,请告诉我。

谢谢。

解决方案:

'Create folder if it doesn't exist
If not oFSO.FolderExists(sDestinationFolder) then
    oFSO.CreateFolder(sDestinationFolder)
End If

2 回复 | 直到 15 年前

AnthonyWJones 15 年前

这是我从事这项工作的基本职能:

Dim gfso : Set gfso = Server.CreateObject("Scripting.FileSystemObject")

Public Sub CreateFolder(path)

  If Len(path) = 0 Then Err.Raise 1001, , "Creating path: " & path & " failed"

  If Not gfso.FolderExists(path) Then
    CreateFolder gfso.GetParentFolderName(path)
    gfso.CreateFolder path
  End If

End Sub

Tchami 15 年前

像这样:

Set fs=Server.CreateObject("Scripting.FileSystemObject")

//Create folder if it doesn't exist
If fs.FolderExists("YOURFOLDERPATH") != true Then
    Set f=fs.CreateFolder("YOURFOLDERPATH")
    Set f=nothing
End If

//Copy your file

set fs=nothing

W3Schools有很多关于如何使用FileSystemObject的例子[这里][1]。

编辑:

Set fs=Server.CreateObject("Scripting.FileSystemObject")

folders = Split("YOURFOLDERPATH", "\")
currentFolder = ""

//Create folders if they don't exist
For i = 0 To UBound(folders)
    currentFolder = currentFolder & folders(i)
    If fs.FolderExists(currentFolder) != true Then
        Set f=fs.CreateFolder(currentFolder)
        Set f=nothing       
    End If      
    currentFolder = currentFolder & "\"
Next

//Copy your file

set fs=nothing

推荐文章

Freddakos · 如何找到变量之间的最小数?

6 年前

Kaan · 经典ASP,在表中的变量中使用超链接

6 年前

silentbugs · 混合ASP。NET和经典ASP项目性能低下

7 年前

Bobby Brown · 如何在vbscript中访问元素XML的第二个子节点?

7 年前

Hitesh Thakur · 经典ASP Cookie不会过期

7 年前

Stephen R · 从页面写入Firefox控制台(无JavaScript)

7 年前

AlexLaforge · 使用Querystring参数调用的经典ASP页是否由HTTP级内核缓存缓存?

7 年前

Rex_Dracones · 链接不工作Vbs asp

7 年前

Falco · 避免在经典asp中转义objXmlHttp json字符串

7 年前

Jenny Tran · 如何将变量从输入框传递到另一个页面[关闭]

7 年前