Delete_File_Directory

Voir le sujet précédent Voir le sujet suivant Aller en bas

avatar
migau
Administrateur
Administrateur
Messages : 2529
Points : 9177
Réputation : 5062
Date d'inscription : 21/10/2016
Localisation : Pays de la Loire
Voir le profil de l'utilisateur http://informaticsclubs.forumactif.org/

Messagemigau le Mer 16 Nov - 15:39

  • 18px
  • 24px


Delete_File_directory



Application qui permet de supprimer soit un fichier soit un dossier

Après avoir lancé l'application, vous avez plusieurs possibilités :

Le clic sur le bouton Search_file ouvre l'explorateur de Windows pour aller chercher le fichier à supprimer sur votre Disque Dur
le clic sur le bouton Delete_file supprime le fichier sélectionné

le clic sur le bouton Search_Directory ouvre l'explorateur et aller chercher et sélectionner le dossier et Clic sur ouvrir
le clic sur le bouton Del_Directory supprime le dossier sélectionné.



Télécharger l'application ici

Décompresser l'archive ainsi téléchargée par un clic droit Extraire tout

Code:

Public Class Form1

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Form2.Show()
        MsgBox("Cliquez sur ok, pour accéder à l'application", vbOK, "Valider")
        Form2.Close()
    End Sub

  

    Private Sub Search_File_Click(sender As Object, e As EventArgs) Handles Search_File.Click
        Dim chemin As String
        Dim OpenFileDialog1 As OpenFileDialog = New OpenFileDialog
        OpenFileDialog1.ShowDialog()
        chemin = OpenFileDialog1.FileName
        Chemin_Fichier.Text = chemin
    End Sub

    
    Private Sub Quitter_Click(sender As Object, e As EventArgs) Handles Quitter.Click

        If MsgBox("Voulez vous vraiment quitter", MsgBoxStyle.OkCancel, "Quitter") = MsgBoxResult.Ok Then
            Close()
        End If

    End Sub

    Private Sub Reset_Click(sender As Object, e As EventArgs) Handles Reset.Click
        Chemin_Fichier.Clear()
        SearchDirectory.Clear()
    End Sub

    Private Sub Search_Directory_Click(sender As Object, e As EventArgs) Handles Search_Directory.Click
        If FolderBrowserDialog1.ShowDialog() = DialogResult.OK Then
            SearchDirectory.Text = FolderBrowserDialog1.SelectedPath
        Else
            MsgBox("Veuillez choisir un dossier", vbCritical, "Erreur")
        End If
    End Sub

    Private Sub Delete_File_Click(sender As Object, e As EventArgs) Handles Delete_File.Click
        If IO.File.Exists(Chemin_Fichier.Text) Then
            My.Computer.FileSystem.DeleteFile(Chemin_Fichier.Text, FileIO.UIOption.AllDialogs, FileIO.RecycleOption.SendToRecycleBin)
            MsgBox("le fichier a bien été supprimé")
            Chemin_Fichier.Clear()
        End If
    End Sub

    Private Sub Del_Directory_Click(sender As Object, e As EventArgs) Handles Del_Directory.Click

        My.Computer.FileSystem.DeleteDirectory(SearchDirectory.Text, FileIO.UIOption.AllDialogs, FileIO.RecycleOption.SendToRecycleBin)

        MsgBox("le dossier a bien été supprimé")
        SearchDirectory.Clear()
    End Sub
End Class



★·.·´¯`·.·★migau★·.·´¯`·.·★
               

Le Forum

   
   

Facebook

   
   
           

la chaine youtube

   
   

Voir le sujet précédent Voir le sujet suivant Revenir en haut

Message personnel aux visiteurs

Créer un compte ou se connecter pour répondre

Vous devez être membre pour répondre.

S'enregistrer

Rejoignez notre communauté ! C'est facile !


S'enregistrer

Connexion

Vous êtes déjà membre ? Aucun soucis, cliquez ici pour vous connecter.


Connexion

 
Permission de ce forum:
Vous ne pouvez pas répondre aux sujets dans ce forum