Créer_supprimer_Dossier

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

avatar
migau
Administrateur
Administrateur
Messages : 2446
Points : 8598
Réputation : 4702
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:40

  • 18px
  • 24px


créer_supprimer_Dossier


Création d'un dossier

  • clic sur le bouton ==>  pour ouvre l'explorateur de Windows
  • aller chercher la partition ou le dossier qui recevra le nouveau dossier
  • Dans l'encart suivant, donner un nom à votre nouveau dossier
  • Clic sur création

le nouveau dossier est créé

supprimer un dossier

  • clic sur le bouton ==>> pour sélectionner le dossier à supprimer depuis l'explorateur de Windows
  • clic sur supprimer_Dossier
  • le dossier est supprimé

supprimer un Fichier

  • clic sur le bouton ==>> pour sélectionner le fichier à supprimer depuis l'explorateur de Windows
  • clic sur supprimer_Fichier
  • le Fichier est supprimé







Télécharger l'application ici

Décompresser l'archive par un clic droit Extraire ici
Pour lancer l'application, clic sur le fichier .exe

Code:

Public Class Form1

    Private Sub BtnSearchDirectory_Click(sender As Object, e As EventArgs) Handles BtnSearchDirectory.Click
        If FolderBrowserDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then
            TBSearchDirectory.Text = FolderBrowserDialog1.SelectedPath
        Else
            MsgBox("Veuillez choisir une partition ou un dossier parent", vbCritical, "Erreur")
        End If
    End Sub

    Private Sub Reset_Click(sender As Object, e As EventArgs) Handles Reset.Click
        TBSearchDirectory.Clear()
        TBNouveauDossier.Clear()
        TBDelFolder.Clear()
        TBcheminFile.Clear()
    End Sub

    Private Sub BtnCreation_Click(sender As Object, e As EventArgs) Handles BtnCreation.Click
        Dim newFolder As String = TBNouveauDossier.Text
        Dim dossierparent As String = TBSearchDirectory.Text
        On Error GoTo retour
        If TBSearchDirectory.Text = "" Then
            MsgBox("Veuillez choisir un chemin", vbCritical, "erreur")
        ElseIf TBNouveauDossier.Text = "" Then
            MsgBox("Veuillez entrer le nom de votre nouveau dossier")

retour:
        ElseIf System.IO.Directory.Exists(dossierparent & "/" & newFolder) Then
            MsgBox("Le nouveau dossier existe déja!", vbExclamation, "dossier existe")
        Else
            Dim dossier As String = (dossierparent & "/" & newFolder)
            System.IO.Directory.CreateDirectory(dossier)
            MsgBox("le dossier est créé", vbExclamation, "dossier créé")
            TBSearchDirectory.Clear()
            TBNouveauDossier.Clear()

        End If

    End Sub

    Private Sub RechercherDossier_Click(sender As Object, e As EventArgs) Handles BTNRechercherDossier.Click
        If FolderBrowserDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then
            TBDelFolder.Text = FolderBrowserDialog1.SelectedPath
        Else
            MsgBox("Veuillez choisir le dossier à supprimer", vbCritical, "Erreur")
        End If
    End Sub

    Private Sub Supprimer_Click(sender As Object, e As EventArgs) Handles Supprimer.Click
        If TBDelFolder.Text = "" Then
            MsgBox("Veuillez choisir un dossier à supprimer", vbCritical, "erreur")
        Else

            My.Computer.FileSystem.DeleteDirectory(TBDelFolder.Text, FileIO.UIOption.AllDialogs, FileIO.RecycleOption.SendToRecycleBin)
            MsgBox("Le dossier a bien été supprimé", vbExclamation, "Dossier supprimé")
            TBDelFolder.Clear()

        End If
    End Sub

    Private Sub BTNQuitter_Click(sender As Object, e As EventArgs) Handles BTNQuitter.Click
        Me.Close()
    End Sub

    Private Sub BTNSearchFile_Click(sender As Object, e As EventArgs) Handles BTNSearchFile.Click
        Dim cheminfichier As String
        Dim OpenFileDialog1 As OpenFileDialog = New OpenFileDialog
        OpenFileDialog1.ShowDialog()
        cheminfichier = OpenFileDialog1.FileName
        TBcheminFile.Text = cheminfichier
    End Sub
  
    Private Sub BTNSupprimerFichier_Click(sender As Object, e As EventArgs) Handles BTNSupprimerFichier.Click
        If TBcheminFile.Text = "" Then
            MsgBox("Choisir le fichier à supprimer", vbCritical, "Erreur")
        Else
            IO.File.Exists(TBcheminFile.Text)
            My.Computer.FileSystem.DeleteFile(TBcheminFile.Text, FileIO.UIOption.AllDialogs, FileIO.RecycleOption.SendToRecycleBin)
            MsgBox("le fichier a bien été supprimé", vbExclamation, "Suppression du fichier")

            TBcheminFile.Clear()
        End If
    End Sub
End Class


Dernière édition par migau le Sam 17 Déc - 14:28, édité 2 fois


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

Le Forum

   
   

Facebook

   
   
           

la chaine youtube

   
   
avatar
jaja3

Messages : 2962
Points : 8355
Réputation : 4437
Date d'inscription : 22/10/2016
Age : 78
Localisation : Occitanie : Hérault
Voir le profil de l'utilisateur

Messagejaja3 le Ven 18 Nov - 13:04

  • 18px
  • 24px
Merci !


★·.·´¯`·.·★jaja★·.·´¯`·.·★

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