Comment créer une structure de répertoire cible pour les fichiers de copie en ASP classique?

Question

Je souhaite copier un fichier dans le répertoire cible. Il est simple avec la commande copyFile de l'objet Système de fichiers. Mais j'ai besoin d'une amélioration comme,

Si le répertoire cible n'existe pas, il créera le répertoire cible, puis copiera un fichier.

Pouvez-vous m'aider à y parvenir? Faites-moi savoir s'il y a d'autres façons de faire la même chose.

Merci.

Solution:

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

Answer 1

Ceci est ma fonction de base pour ce poste: -

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 

Answer 2

Quelque chose comme ceci:

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 a beaucoup d'exemples sur la façon d'utiliser le FileSystemObject [ici] [1].

EDIT:

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