Existence fichier sans Dir
Bonjour,
Est -il possible de vérifier l'existence d'un fichier sans faire appelle à l’instruction Dir?
J'ai besoin de tester l'existence d'un fichier a l'intérieur de ma boucle While or si je mets un Dir à l'intérieur de cette boucle ça l'interrompt.
Code:
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
| Sub fichier()
Dim fichier As Variant
Dim cheminfichier As Variant
Dim Dossiertempasup As Variant
Dim n As Integer
Dossiertempasup = "C:\Users\xx\Desktop\Dossier tempon à sup"
If Existencedossier(Dossiertempasup) = "" Then
MkDir Dossiertempasup
End If
cheminfichier = "C:\Users\xxx\Desktop\Suivi\données essai zip\"
fichier = Dir(cheminfichier & "*.*")
n = 0
While fichier <> ""
n = n + 1
fichier = Dir
Wend
MsgBox n
MsgBox "Mise à jour fini"
End Sub |
Quelqu'un aurai une idée? Merci d'avance
