Discussion :

[eikeshi]

Bonjour, existe t-il une méthode pour effacer tous les fichiers contenus dans un répertoire sans connaître le nom des fichiers ?

Voici mon début de code :

Code :

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

1
2
3
4
Dim _Dossier As String() = Directory.GetFiles(_Rep & "NPT_saison")
If _Dossier.Length > 0 Then
      ...?
End If

[eikeshi]

Bon, j'ai réussi avec ce bout de code en bidoullant un peu mais bon si vous avez mieux, faites moi signe :

Code :

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

1
2
3
4
5
6
7
Dim _Dossier As String = Directory.GetFiles(_Rep & "NPT_saison")
Dim di As DirectoryInfo = New DirectoryInfo(_Rep & "NPT_saison")
If _Dossier.Length > 0 Then
      For Each fi As FileInfo In di.GetFiles()
           fi.Delete()
      Next
End If

[lysiandad]

Si

a) par "contenu" du repertoire vous entendez "fichiers et sous repertoires" ;

et si :

b) vous pouvez (votre logique applicative) vous permettre de perdre l'information sur la date de création disons "initiale" du répertoire "à vider", vous pouvez alors avantageusement simplifier votre code :

1) en utilisant d'abord (sur System.IO.Directory) :

Code :

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

1
2
3
4
5
 
Public Shared Sub Delete ( _
	path As String, _
	recursive As Boolean _
)

(avec recursive à True)

2) puis en recréant le même répertoire avec (toujours System.IO.Directory) :

Code :

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

1
2
3
4
 
Public Shared Function CreateDirectory ( _
    path As String _
) As DirectoryInfo

'HTH

ps : concernant l'hypothèse (b) ci dessus, considérez quand même l'impact eventuel d'un tel code sur les autres applications (je pense a des outils de gestion de versions, etc) ; on est jamais trop prudent...