VB Afficher les noms de fichiers/dossiers

Question

Je suis en train de coder un programme qui exécutera des fichiers batch s'ils sont sélectionnés par l'utilisateur.

Chaque lot possède son propre dossier dans un dossier "resources" spécifique.

Je parcourt ce dossier pour créer des cases à cocher et des étiquettes. Tout fonctionne bien, mais je ne veux pas que l'étiquette ait le chemin entier - je veux juste afficher le nom de fichier.

CODE:

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load 

    Dim BatchFolder As IEnumerable = Directory.EnumerateFileSystemEntries(appPath & "/resources") 
    Dim totalNumber As Integer = Directory.GetDirectories(appPath & "/resources").Length 
    Dim i As Integer = 1 

    For Each dir As String In BatchFolder 
     Dim Label As New Label() 
     Label.Name = "Lb_" & dir 
     Label.Text = dir & ".bat" 
     Label.AutoSize = True 
     Label.Visible = True 
     Label.Location = New Point(55, 4 + 25 * i) 
     Dim CustomCheckbox As New Bunifu.Framework.UI.BunifuCheckbox() 
     CustomCheckbox.Visible = True 
     CustomCheckbox.Name = "CB_" & dir 
     CustomCheckbox.Checked = False 
     CustomCheckbox.Location = New Point(35, 25 * i) 
     CustomCheckbox.CheckedOnColor = Color.FromArgb(12, 106, 255) 
     Panel5.Controls.Add(Label) 
     Panel5.Controls.Add(CustomCheckbox) 
     i = i + 1 
    Next 
    Label21.Text = totalNumber 
End Sub 

Voici à quoi il ressemble:

Answer 1

Vous pouvez le faire comme ceci:

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load 
    Dim BatchFolder As IEnumerable = Directory.EnumerateFileSystemEntries(appPath & "\resources") 
    Dim totalNumber As Integer = Directory.GetDirectories(appPath & "\resources").Length 
    Dim i As Integer = 1 

    For Each dir As String In BatchFolder 
     Dim Label As New Label() 
     dir = dir.Substring(dir.LastIndexOf("\") + 1) 
     Label.Name = "Lb_" & dir 
     Label.Text = dir & ".bat" 
     Label.AutoSize = True 
     Label.Visible = True 
     Label.Location = New Point(55, 4 + 25 * i) 
     Dim CustomCheckbox As New Bunifu.Framework.UI.BunifuCheckbox() 
     CustomCheckbox.Visible = True 
     CustomCheckbox.Name = "CB_" & dir 
     CustomCheckbox.Checked = False 
     CustomCheckbox.Location = New Point(35, 25 * i) 
     CustomCheckbox.CheckedOnColor = Color.FromArgb(12, 106, 255) 
     Panel5.Controls.Add(Label) 
     Panel5.Controls.Add(CustomCheckbox) 
     i = i + 1 
    Next 
    Label21.Text = totalNumber 
End Sub 

espère que cela vous aidera :)