Extensible
Cliquer sur le bouton
au dessus de ce widget,
ceci rend les pages Extensibles,
très utile pour
les écrans de petites tailles
Rechercher
 
 

Résultats par :
 

 


Rechercher Recherche avancée

Derniers sujets
» Problème de redirection
Sam 29 Avr 2017 - 19:28 par picpus

» Message d'avertissement
Ven 10 Mar 2017 - 8:31 par migau

» [Résolu]Site qui ne s'ouvre pas !
Jeu 23 Fév 2017 - 20:11 par gigi

» Mise à jour cumulative Windows 10
Sam 28 Jan 2017 - 9:39 par migau

» Installer java 32 et 64 bits
Lun 23 Jan 2017 - 14:14 par migau

» Année_2017
Dim 1 Jan 2017 - 10:57 par chrisnvdia

» le 18 Décembre, c'était l'Anniv de Richard49
Ven 30 Déc 2016 - 19:22 par Richard49

» 28 Décembre : nous fêtons hackinginterdit
Jeu 29 Déc 2016 - 8:38 par migau

» Salut tout le monde
Lun 12 Déc 2016 - 11:15 par les iles

Partenaires
Qui est en ligne ?
Il y a en tout 1 utilisateur en ligne :: 0 Enregistré, 0 Invisible et 1 Invité

Aucun

[ Voir toute la liste ]


Le record du nombre d'utilisateurs en ligne est de 42 le Lun 31 Juil 2017 - 10:07

créer_supprimer_Dossier

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

créer_supprimer_Dossier

Message par migau le Mar 26 Avr 2016 - 13:13

en attente

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

_________________
Best Regards



Migau
avatar
migau
Webmaster
Webmaster

Messages : 1500
Date d'inscription : 01/08/2015
Localisation : Pays de La Loire

Voir le profil de l'utilisateur http://informaticsclubs.forumactif.org/

Revenir en haut Aller en bas

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


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