F
franck
Guest
Bonjour,
Quel code faut-il mettre pour savoir si le répertoire existe déjà?
@+
Quel code faut-il mettre pour savoir si le répertoire existe déjà?
@+
E
Eric
Guest
franck écrit:
On est pas à tes ordres.
Lis la chartre, ca ne te fera pas de mal !!!
On est pas à tes ordres.
Lis la chartre, ca ne te fera pas de mal !!!
excalibur
XLDnaute Impliqué
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
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
XLDnaute Junior
Aussi direct que la question ...
Set sc = CreateObject('Scripting.FileSystemObject')
if fso.FolderExists('nom_dossier') then ...
Set sc = CreateObject('Scripting.FileSystemObject')
if fso.FolderExists('nom_dossier') then ...
D
DAniel
Guest
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
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
XLDnaute Impliqué
bonjour eric pas vu excuse question de frank un peu 'seche ' mais considere relativement correcte salutations jean pierre
Discussions similaires
- Résolu(e)
