Discussion :

[elscorpio]

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

[sevyc64]

pour vérifier si un dossier existe c'est :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

System.IO.Directory.Exists(chemin)

pour vérifier si un fichier existe c'est :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

System.IO.File.Exists(chemin)

[elscorpio]

Merci, c'est exactement ce qu'il me fallait. Sinon j'avais trouvé autre chose, c'était de rajouter l'option "FileAttribute.Directory" dans la fonction Dir(); mais c'est une méthode qui me semble un peu bancale, je préfère la tienne.

[hunteshiva]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
        Dim CheminDossier As String = "C:\Mon Nouveau Dossier"
 
        'Création du nouveau dossier s'il n'éxiste pas déja
        If Dir(CheminDossier , vbDirectory) = "" Then
            'Création du nouveau dossier            
            MkDir(CheminDossier )
        Else
            'le dossier existe
        End If

je ne connais pas les fonctionnalités de MkDir à 100%
mais sa fonctionne bien auss

[sevyc64]

Dir, MKDir sont des fonctions qui datent de VB6 et des versions précédentes. Elles existent toujours en .Net pour des raisons de compatibilité mais ne devraient être utiliser que pour ça.

Un moyen radical de se prémunir de l'utilisation des ces "fonctions compatibles" est de désactiver la référence Microsoft.VisualBasic dans ses projets.

Toutes les fonctionnalités existantes dans cette référence existent d'une manière ou d'une autre ailleurs dans le framework

[elscorpio]

Dans ce cas là, par quoi puis-je remplacer les fonctions Today, Dir, Kill, MkDir et Command?
Je demande également pour Dir même si j'ai déja la réponse car j'utilise aussi cette fonction pour lister les éléments d'un dossier