savoir si un dossier existe

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:

---

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

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

Code:

---

System.IO.Directory.Exists(chemin)

---

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

Code:

---

System.IO.File.Exists(chemin)

---

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.

Code:

---

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 ;)

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

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

Today,
- Date.Now pour avoir l'instant t (date +heure du jour) ou
- Date.Now.Date ou Date.Today pour avoir juste la partie date de l'instant t (donc la date du jour)

Dir, au choix
- System.IO.Directory.Exists pour savoir si un répertoire existe
- System.IO.File.Exists pour savoir si un fichier existe
- System.IO.Directory.GetDirectories pour la liste des sous-répertoires
- System.IO.Directory.GetFiles pour la liste des fichiers
- System.IO.Directory.GetFilesSystemEntries pour le liste des fichiers et sous répertoires

Kill,
- System.IO.File.Delete pour un fichier
- System.IO.Directory.Delete pour un répertoire

MkDir
- System.IO.Directory.Create

Command, plusieurs possibilités, les principales étant
- My.Application.CommandLineArgs
- Environment.CommandLine

VB.Net étant une programmation Objet (contrairement à VB6), tout cela suit une certaine logique que tu peux appréhender ici, ex :
Tout ce qui touche les entrées sorties sur Disque (IO), on va les retrouver dans System.IO
La dedans on peut avoir des répertoires (Directory) et donc tout ce qui les touche dans System.IO.Directory, des fichiers (File) et tout ce qui les touche dans System.IO.File, des chemins à gérer (Path) et donc les méthodes pour les gérer dans System.IO.Path, etc ...........

Ok merci bien