none
Choisir le type de dossier créé par VB RRS feed

  • Discussion générale

  • Bonjour

    Soit un programme en VB qui crée un dossier (CreateDirectory)

    qui contient des tas de choses : pdf, txt, ..., et en majorité des MP3.
    L'explorateur de fichiers considère que c'est un dossier de type Musique (propriétés /personnaliser).
    Le choix des colonnes ne me convient pas, en particulier je voudrais les dates, la taille. Et je n'ai rien à faire des artistes, album, qui ne sont pas renseignés.
    Le plus simple serait de mettre un autre type dans le programme. Je n'ai pas trouvé comment faire.
    Le fin du fin serait de pouvoir créer un nouveau type et le paramétrer.
    Merci d'avance

    dimanche 11 novembre 2018 15:40

Toutes les réponses

  • Bonjour,

    Voici un exemple comment rechercher le noms, la date, la taille du fichier et copier dans un dossier.

    dans le textbox1.text, j'ai rechercher *.mp3;*.JPG;*.txt....etc

    Voici le code :

    Imports System.IO Public Class Form1 Dim fName As String = Nothing Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load With ListView1 .View = View.Details .GridLines = True .CheckBoxes = True .Columns.Add("", 30, HorizontalAlignment.Center) .Columns.Add("Name", 200, HorizontalAlignment.Center) .Columns.Add("Date", 100, HorizontalAlignment.Center) .Columns.Add("Taille", 100, HorizontalAlignment.Center) End With End Sub Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click If Not String.IsNullOrEmpty(TextBox1.Text) Then ListView1.Items.Clear() Dim patternType() As String = TextBox1.Text.Split(";"c) For i = 0 To patternType.Length - 1 For Each Dir As String In Directory.GetFiles(My.Computer.FileSystem.SpecialDirectories.Desktop, patternType(i), IO.SearchOption.AllDirectories) fName = Path.GetFullPath(Dir) Dim info As New FileInfo(fName) Dim lvi As New ListViewItem() lvi.SubItems.AddRange(New String() {info.Name, info.LastAccessTime.Date, FormatFileSize(info.Length)}) ListView1.Items.Add(lvi) Next Next MsgBox("Traitement Terminer!", MsgBoxStyle.Information) End If End Sub Private Function FormatFileSize(ByVal fileSize As Long) As String If (fileSize < 0) Then Return String.Format("{0} bytes", fileSize) End If If (fileSize >= 1073741824) Then Return String.Format("{0:########0.00} GB", (fileSize / 1073741824)) End If If (fileSize >= 1048576) Then Return String.Format("{0:####0.00} MB", (fileSize / 1048576)) End If If (fileSize >= 1024) Then Return String.Format("{0:####0.00} KB", (fileSize / 1024)) End If Return String.Format("{0} bytes", fileSize) End Function

     Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
            If Not String.IsNullOrEmpty(TextBox2.Text) AndAlso ListView1.Items.Count > 0 Then
                Dim count As Integer = 0
                If ListView1.CheckedItems.Count > 0 Then
                    For i = 0 To ListView1.CheckedItems.Count - 1
                        If Not System.IO.Directory.Exists(TextBox2.Text) Then
                            System.IO.Directory.CreateDirectory(TextBox2.Text)
                        End If
                        My.Computer.FileSystem.CopyFile(fName, TextBox2.Text & "\" & ListView1.CheckedItems(i).SubItems(1).Text, True)
                        count += 1
                    Next
                    MsgBox(count & " Fichier Copier!", MsgBoxStyle.Information)
                Else
                    MsgBox("Veuillez cocher un ou plusieur fichier!", MsgBoxStyle.Critical)
                End If
            End If
        End Sub

    End Class

    Cordialement,







    • Modifié zorro591 lundi 12 novembre 2018 11:06
    lundi 12 novembre 2018 08:33
  • Bonjour

    Merci pour votre réponse qui vous a demandé du travail.

    Je me suis sans doute mal exprimé, ce que je voudrais c'est faire en VB le paramétrage de l'explorateur de fichiers.
    Pour reformuler :
    En VB je crée un dossier. C'est Windows qui décide du type et donc des colonnes affichées dans la fenêtre de droite de l'explorateur.
    Ce que je voudrais, c'est au moins pouvoir choisir le type.
    Si je peux en créer un nouveau c'est mieux.
    Mais surtout, je voudrais pouvoir choisir les colonnes affichées dans l'explorateur de fichier pour ce dossier.
    Ça évite de perdre un temps fou chaque fois qu'on veut l'exploiter.

    lundi 12 novembre 2018 10:56
  • Bonjour,

    au sinon, vous avez un exemple Dans ce lien : explorateur de fichier

    Cordialement,

    lundi 12 novembre 2018 11:17
  • OK
    Je regarde.
    Merci

    lundi 12 novembre 2018 11:37
  • Bonjour

    non ça ne correspond pas à ce que je cherche.
    Après un
    My.Computer.FileSystem.CreateDirectory( Dossier)
    je voudrais fixer le type de ce dossier, par exemple Images
    Quelqu'un a une idée ?

    mardi 13 novembre 2018 19:20