comment tester si le répertoire existe déjà

[franck]

Bonjour,

Quel code faut-il mettre pour savoir si le répertoire existe déjà?

@+

 

[Eric]

franck écrit:

Bonjour,

Quel code faut-il mettre pour savoir si le répertoire existe déjà?

@+

On est pas à tes ordres.
Lis la chartre, ca ne te fera pas de mal !!!

 

[excalibur]

bonjour frank , le forum essaie ce code en passant par un fonction
option explicit
Function RépertoireExiste(Chemin As String) As Boolean
On Error Resume Next
RépertoireExiste = GetAttr(Chemin) And vbDirectory
End Function
Sub presence()
[a1] = RépertoireExiste('c:\\') 'renvoie vrai ou faux dans la cell a1 dans le cas present recherche le repertoire c:\\
End Sub ' salutations

 

[Shining Hawk]

Aussi direct que la question ...

Set sc = CreateObject('Scripting.FileSystemObject')
if fso.FolderExists('nom_dossier') then ...

😱

 

[DAniel]

Bonjour Franck, shining, excalibur, Eric et le forum,

Une autre méthode :

On Error Resume Next
ChDir 'chemin d'accès du rep'
If Err <> 0 Then
'ce que tu veux faire
End If

 

[excalibur]

bonjour eric pas vu excuse question de frank un peu 'seche ' mais considere relativement correcte salutations jean pierre