1

ファイルをターゲットディレクトリにコピーしたい。ファイルシステムオブジェクトのcopyFileコマンドで簡単です。しかし、次のような拡張が必要です。

ターゲット ディレクトリが存在しない場合は、ターゲット ディレクトリを作成してからファイルをコピーします。

それを達成するのを手伝ってもらえますか?

同じことを行う他の方法があれば教えてください。

ありがとう。

解決：

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

2 に答える 2

2

これは、この仕事のための私の基本的な機能です:-

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
于 2009-09-08T14:11:28.743 に答える
1

このようなもの：

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
于 2009-09-07T15:14:35.427 に答える