Je cherche à utiliser l'instruction FolderExist pour créer ou non un
répertoire ( object.FolderExists(folderspec) )
Quel Objet doit être créé pour pour utiliser cette méthode ?
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
michdenis
Bonjour Christophe,
Essaie ceci :
'-------------------------- Sub CréerRépertoire()
Dim F As Object, Rep As String 'Répertoire à créer "Toto" si absent Rep = "C:toto" Set F = CreateObject("Scripting.FileSystemObject") With F If Not .FolderExists(Rep) Then .CreateFolder Rep End If End With Set F = Nothing End Sub '--------------------------
Salutations!
"Christophe CAMPAIN" a écrit dans le message de news: Bonjour à tous,
Je cherche à utiliser l'instruction FolderExist pour créer ou non un répertoire ( object.FolderExists(folderspec) ) Quel Objet doit être créé pour pour utiliser cette méthode ?
Par avance merci,
Kristof
Bonjour Christophe,
Essaie ceci :
'--------------------------
Sub CréerRépertoire()
Dim F As Object, Rep As String
'Répertoire à créer "Toto" si absent
Rep = "C:toto"
Set F = CreateObject("Scripting.FileSystemObject")
With F
If Not .FolderExists(Rep) Then
.CreateFolder Rep
End If
End With
Set F = Nothing
End Sub
'--------------------------
Salutations!
"Christophe CAMPAIN" <campain.christophe_PasDePub@libertysurf.fr> a écrit dans le message de
news:ex86JdrJEHA.644@tk2msftngp13.phx.gbl...
Bonjour à tous,
Je cherche à utiliser l'instruction FolderExist pour créer ou non un
répertoire ( object.FolderExists(folderspec) )
Quel Objet doit être créé pour pour utiliser cette méthode ?
Dim F As Object, Rep As String 'Répertoire à créer "Toto" si absent Rep = "C:toto" Set F = CreateObject("Scripting.FileSystemObject") With F If Not .FolderExists(Rep) Then .CreateFolder Rep End If End With Set F = Nothing End Sub '--------------------------
Salutations!
"Christophe CAMPAIN" a écrit dans le message de news: Bonjour à tous,
Je cherche à utiliser l'instruction FolderExist pour créer ou non un répertoire ( object.FolderExists(folderspec) ) Quel Objet doit être créé pour pour utiliser cette méthode ?
Par avance merci,
Kristof
Christophe CAMPAIN
Merci Michel,
Ca marche et en plus ça m'a fait comprendre l'exemple de l'aide d'Excel que je n'arrivais pas à interpréter...
@+ Kristof
"michdenis" a écrit dans le message de news:%
Bonjour Christophe,
Essaie ceci :
'-------------------------- Sub CréerRépertoire()
Dim F As Object, Rep As String 'Répertoire à créer "Toto" si absent Rep = "C:toto" Set F = CreateObject("Scripting.FileSystemObject") With F If Not .FolderExists(Rep) Then .CreateFolder Rep End If End With Set F = Nothing End Sub '--------------------------
Salutations!
"Christophe CAMPAIN" a écrit dans le message de
news: Bonjour à tous,
Je cherche à utiliser l'instruction FolderExist pour créer ou non un répertoire ( object.FolderExists(folderspec) ) Quel Objet doit être créé pour pour utiliser cette méthode ?
Par avance merci,
Kristof
Merci Michel,
Ca marche et en plus ça m'a fait comprendre l'exemple de l'aide d'Excel que
je n'arrivais pas à interpréter...
@+
Kristof
"michdenis" <michdenis@hotmail.com> a écrit dans le message de
news:%23SpQ9lrJEHA.2660@TK2MSFTNGP09.phx.gbl...
Bonjour Christophe,
Essaie ceci :
'--------------------------
Sub CréerRépertoire()
Dim F As Object, Rep As String
'Répertoire à créer "Toto" si absent
Rep = "C:toto"
Set F = CreateObject("Scripting.FileSystemObject")
With F
If Not .FolderExists(Rep) Then
.CreateFolder Rep
End If
End With
Set F = Nothing
End Sub
'--------------------------
Salutations!
"Christophe CAMPAIN" <campain.christophe_PasDePub@libertysurf.fr> a écrit
dans le message de
news:ex86JdrJEHA.644@tk2msftngp13.phx.gbl...
Bonjour à tous,
Je cherche à utiliser l'instruction FolderExist pour créer ou non un
répertoire ( object.FolderExists(folderspec) )
Quel Objet doit être créé pour pour utiliser cette méthode ?
Ca marche et en plus ça m'a fait comprendre l'exemple de l'aide d'Excel que je n'arrivais pas à interpréter...
@+ Kristof
"michdenis" a écrit dans le message de news:%
Bonjour Christophe,
Essaie ceci :
'-------------------------- Sub CréerRépertoire()
Dim F As Object, Rep As String 'Répertoire à créer "Toto" si absent Rep = "C:toto" Set F = CreateObject("Scripting.FileSystemObject") With F If Not .FolderExists(Rep) Then .CreateFolder Rep End If End With Set F = Nothing End Sub '--------------------------
Salutations!
"Christophe CAMPAIN" a écrit dans le message de
news: Bonjour à tous,
Je cherche à utiliser l'instruction FolderExist pour créer ou non un répertoire ( object.FolderExists(folderspec) ) Quel Objet doit être créé pour pour utiliser cette méthode ?