Bonjour.
J'ai résolu le même problème de la façon suivante.
Je créé un Formulaire FormMenuGénéral
Je créé Un Formulaire FormBaseDeDonnées qui est ouvert depuis le FormMenuGénétral.
Je créé un module ModuleGestionDesFichiers avec une variable Public Var_FichiersAsupprimer(0) As String.
Depuis le formulaire FormBaseDeDonnées, je charge la variable Var_FichiersAsupprimer avec le chemin complet des ptohos à supprimer (cà marche aussi pour tous types de fichiers)
Dans le module j'écris la procédure suivante:
Public Sub Papi_SupprimerLesFichiers()
Dim MessagesErreur As String = ""
Dim Nb As Integer = 0
For n = 0 To Var_FichiersAsupprimer.Length - 1
If Var_FichiersAsupprimer(n) = Nothing Then Continue For
Nb = Nb + 1
Next
If Nb = 0 Then
End
End If
FormBaseDeDonnées.Dispose() 'pour libérer les ressources
For n = 0 To Var_FichiersAsupprimer.Length - 1
If Var_FichiersAsupprimer(n) = Nothing Then Continue For
Nb = Nb + 1
Next
If Nb = 0 Then
End
End If
Dim Rep As String = InputBox("Vous avez choisi de supprimer " & Nb / 3 & " fichier(s), voulez-vous REELLEMENT LES SUPPRIMER,", VapiNomProg, "Oui")
If Rep = "Oui" Then
Dim ComboSup As New ComboBox
For i = 0 To Var_FichiersAsupprimer.Length - 1
If Var_FichiersAsupprimer(i) = "" Then Continue For
If IO.File.Exists(Var_FichiersAsupprimer(i)) = True Then
ComboSup.Items.Add(Var_FichiersAsupprimer(i))
End If
Next
For S = 0 To ComboSup.Items.Count - 1
Dim Chemin As String = ComboSup.Items(S)
Try
IO.File.Delete(Chemin)
Catch
MessagesErreur = MessagesErreur & " " & Chemin
End Try
Next
End If 'oui'
If Rep <> "oui" Then
MsgBox("ATTENTION, vous devrez faire une MAJ dans l'organisation lors de l'accès aux lecteurs dont les fichiers ont été supprimés", , VapiNomProg)
End If
If MessagesErreur <> "" Then
MsgBox("Suite à une erreur inconnue, le(s) fichier(s) " & MessagesErreur & " n'a ou n'ont pas été supprimé(s)", MsgBoxStyle.Information, VapiNomProg)
End If
End
End Sub
J'appelle cette procédur avec la méthode
FormMenuGénéral_FormClosing
Call Papi_SupprimerLesFichiers()
Vollà, cà fonctionne très bien