Discussion :

[niamo]

Bonjour à tous, voila j'ai un petit problème dans ce code qui consiste a vérifier si des fichiers existent dans un dossier. Si oui on les supprime et on supprime le dossier lui même. Sinon on supprime juste le dossier.

Code :

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

1
2
3
4
If (Dir(rep & "CDE" & "-" & texte_num_cmd.Value & "-" & fournisseur & "-" & Year(texte_date_cmd.Value) & "\*") <> "") Then
    Kill (rep & "CDE" & "-" & texte_num_cmd.Value & "-" & fournisseur & "-" & Year(texte_date_cmd.Value) & "\*")
End If
    RmDir (rep & "CDE" & "-" & texte_num_cmd.Value & "-" & fournisseur & "-" & Year(texte_date_cmd.Value))

Voilà ce qui se passe dans les différents cas :

-1er cas : aucun fichier dans le dossier : le code s'exécute parfaitement

-2eme cas : présence de fichiers dans le dossier : le code contenu dans le if s'exécute mais celui après le if fait planter l'application. Si je ne débog pas et que je met "fin" et que j'essaye ensuite d'appuyer de nouveau sur le bouton "annuler qui exécute ce code, alors je peux constater que le code s'exécute correctement. (en effet il ne rentre pas dans le if.

Le message d'erreur que je reçois est le suivant : erreur d'exécution '75' erreur d'accès chemin/fichier

[niamo]

Je viens de modifier le code, et il marche correctement maintenant... pouvez vous me dire pourquoi, j'ai vraiment du mal a comprendre...

Code :

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

1
2
3
4
5
6
If (Dir(rep & "CDE" & "-" & texte_num_cmd.Value & "-" & fournisseur & "-" & Year(texte_date_cmd.Value) & "\*") <> "") Then
    Kill (rep & "CDE" & "-" & texte_num_cmd.Value & "-" & fournisseur & "-" & Year(texte_date_cmd.Value) & "\*")
End If
If (Dir(rep & "CDE" & "-" & texte_num_cmd.Value & "-" & fournisseur & "-" & Year(texte_date_cmd.Value) & "\*") = "") Then
    RmDir (rep & "CDE" & "-" & texte_num_cmd.Value & "-" & fournisseur & "-" & Year(texte_date_cmd.Value))
End If