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

E

Eric

Guest

• 12 Août 2005

• #2

franck écrit:

Bonjour,

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

@+

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif

excalibur

XLDnaute Impliqué

• 12 Août 2005

• #3

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

 

Vote positif 0 Vote négatif

S

Shining Hawk

Guest

• 12 Août 2005

• #4

Aussi direct que la question ...

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

😱

 

Vote positif 0 Vote négatif

D

DAniel

Guest

• 12 Août 2005

• #5

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

 

Vote positif 0 Vote négatif

excalibur

XLDnaute Impliqué

• 12 Août 2005

• #6

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

 

Vote positif 0 Vote négatif