Bonjour,
je programme en vb9 un bout de code qui doit vérifier si un dossier existe. S'il existe, on supprime les éléments contenus dans ce dossier et s'il n'existe pas, on le crée.

j'utilise ce code-ci:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
 
Dim FileName1 As String
If Dir(My.Application.Info.DirectoryPath & "\temp") <> "" Then
            FileName1 = Dir(My.Application.Info.DirectoryPath & "\temp\" & "*.*")
            While FileName1 <> ""
                Kill(My.Application.Info.DirectoryPath & "\temp\" & FileName1)
                FileName1 = Dir()
            End While
Else
            MkDir(My.Application.Info.DirectoryPath & "\temp")
End If
tout fonctionne sauf la vérification d'existence du dossier, dans tous les cas, le programme considère que le dossier n'existe pas et donc cherche à le créér; et donc soucis si le dossier existait déja.
J'utilise la même structure conditionnelle pour tester l'existence d'un fichier autre part dans mon programme et là ça fonctionne donc cette instruction ne semble pas adaptée pour les dossiers.

J'aimerais donc savoir comment tester si mon dossier existe, merci