1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25
|
Function SousRepertoireExiste (dos1, dos2)
SET fso= Server.CreateObject("Scripting.FileSystemObject")
'Récupération du répertoire courant
cheminRep = Server.MapPath(".")
'Vérification de la présence du répertoire dos1
cheminRep = cheminRep & "\" & dos1
If fso.FolderExists(cheminRep) Then
' le répertoire dos1 existe, on teste maintenant pour le répertoire dos2
cheminRep = cheminRep & "\" & dos2
If fso.FolderExists(cheminRep) Then
'le répertoire dos2 existe et est un sous-répertoire de dos1
'on renvoit donc true
SousRepertoireExiste = true
else
' le répertoire dos2 n'existe pas
SousRepertoireExiste = false
end if
else
' le répertoire dos1 n'existe pas
SousRepertoireExiste = false
end if
end function |
Partager