Extraire nom de fichier d'une extension spécifique [Résolu]

Question

Extraire nom de fichier d'une extension spécifique [Résolu]

Signaler

Nevda - 13 juin 2016 à 11:05
Nevda

Messages postés: 15
Date d'inscription: lundi 13 juin 2016
Statut: Membre
Dernière intervention: 5 juillet 2016

- 14 juin 2016 à 09:56

Bonjour,

Je cherche à déplacer des fichiers .pdf d'un dossier vers un autre. Or, dans le dossier d'origine se trouvent plusieurs type de fichiers (.xls ou autre).
Je cherche donc à ce que le déplacement ne prenne en compte que les fichiers .pdf.

J'arrive à récupérer mes noms de fichiers seuls, avec ou sans l'extension... Mais je ne trouve pas comment, par exemple dans mon fichier texte contenant tous les noms de fichiers d'un dossier, supprimer tous les noms ne contenant pas .pdf.

Pouvez vous me guider?
Merci d'avance.
Cordialement,
Nevda

A voir également:

Vb.net directory.getfiles
Directory.getfiles vb.net - Meilleures réponses
Vb.net getfiles - Meilleures réponses
Nom du fichier sans l'extension - Codes sources - PHP (Fichier / Disque)
Extraire nom du fichier apartir d'un url. ✓ - Forum - VB.NET
Vba excel récupérer le nom du fichier sans l'extension ✓ - Forum - VBA Office (Excel, Word ...)
Extraire le nom du fichier d'un chemin en 1 commande - Codes sources - Visual Basic / VB.NET (Divers)
Extraire le nom du fichier d'un chemin - Codes sources - Visual Basic / VB.NET (Fichier / Disque)

11 réponses

Répondre Posez votre question

ucfoutu · Answer 1 · 2016-06-13T11:12:01+0200

Réponse 1 / 11

ucfoutu

Messages postés: 18038
Date d'inscription: lundi 7 décembre 2009
Statut: Modérateur
Dernière intervention: 11 avril 2018

237
13 juin 2016 à 11:12

Bonjour,
- Tu as ouvert cette discussion dans le forum GENERAL Visual Basic (qui comprend plusieurs sous-forums)
Tant et si bien(mal ...) que nous ne savons pas sous quoi tu développes ! Or, la solution dépend de ton langage de développement, qui reste à préciser.
- nous apprécierions de voir le code que tu as écrit. Plusieurs méthodes existent et si nous devons corriger ton code (la méthode choisie) il nous faut le voir, ce code, non ?

Nevda · Answer 2 · 2016-06-13T11:20:28+0200

Bonjour ucfoutu,

Je suis assez novice dans le domaine et c'est mon premier post sur le forum. Je code sur visual basic 2010.

Function nomdefichier(dossiersource As String) As String

        Dim fichier As String
        Dim car0 As String
        
        My.Computer.FileSystem.GetFileInfo(dossiersource)
        For Each fichier In IO.Directory.GetFiles(dossiersource)
            My.Computer.FileSystem.WriteAllText("C:\Users\win8\Desktop\nomfichier.txt", fichier, True)
        Next
        car0 = My.Computer.FileSystem.ReadAllText("C:\Users\win8\Desktop\nomfichier.txt")
        My.Computer.FileSystem.DeleteFile("C:\Users\win8\Desktop\nomfichier.txt")
        car0 = car0.Replace(dossiersource, " ")
        car0 = car0.Replace("\", "")
        Dim fichiers() As String = car0.Split(" ")
        nomdefichier = car0.Substring(1)
        My.Computer.FileSystem.WriteAllText("C:\Users\win8\Desktop\nomfichier.txt", nomdefichier, True)
    End Function

Souhaites-tu que je commente mon code?

ucfoutu · Answer 3 · 2016-06-13T11:31:08+0200

Réponse 3 / 11

ucfoutu

Messages postés: 18038
Date d'inscription: lundi 7 décembre 2009
Statut: Modérateur
Dernière intervention: 11 avril 2018

237
13 juin 2016 à 11:31

1) Je déplace donc cette discussion vers le sous-forum VB.Net où elle aurait dû être ouverte. Prends s'il te plait dorénavant ce soin
2) je ne suis pas VB.Nettiste. Un VBNettiste te répondra donc.
J'observe toutefois que ton code ne parait pas du tout correspondre à ce que tu exposes dans ton premier message.
Attends donc le passage par là d'un VB.Nettiste.

cs_Le Pivert · Answer 4 · 2016-06-13T11:34:21+0200

Réponse 4 / 11

cs_Le Pivert

Messages postés: 7418
Date d'inscription: jeudi 13 septembre 2007
Statut: Contributeur
Dernière intervention: 15 juin 2021

124
13 juin 2016 à 11:34

Bonjour,

Le plus simple c'est de filtrer par extension en listant le dossier dans une Listbox:

https://msdn.microsoft.com/fr-fr/library/wz42302f(v=vs.110).aspx

Nevda · Answer 5 · 2016-06-13T11:41:36+0200

Réponse 5 / 11

Nevda

Messages postés: 15
Date d'inscription: lundi 13 juin 2016
Statut: Membre
Dernière intervention: 5 juillet 2016

13 juin 2016 à 11:41

Bonjour,

Le deuxième paramètre formel "searchpattern" correspond-il à l'extension (dans mon cas .pdf) à entrer? Les extensions sont-elles prises en compte dans le titre du fichier?

Merci pour votre réponse.

Whismeril · Answer 6 · 2016-06-13T11:41:54+0200

Réponse 6 / 11

Whismeril

Messages postés: 16037
Date d'inscription: mardi 11 mars 2003
Statut: Contributeur
Dernière intervention: 17 juin 2021

551
13 juin 2016 à 11:41

Bonjour,

C'est donc du Vb.net, la prochaine fois pour gagner du temps poste dans le bon forum.

Regarde https://msdn.microsoft.com/fr-fr/library/system.io.directory.getfiles(v=vs.110).aspx
Il y a une surcharge qui permet de mettre un pattern, *.pdf, par exemple.

Pour déplacer un fichier, il y a https://msdn.microsoft.com/fr-fr/library/system.io.file.move(v=vs.110).aspx

Nevda · Answer 7 · 2016-06-13T11:44:34+0200

Réponse 7 / 11

Nevda

Messages postés: 15
Date d'inscription: lundi 13 juin 2016
Statut: Membre
Dernière intervention: 5 juillet 2016

13 juin 2016 à 11:44

Bonjour,
Merci bien, cela répond à ma question à Le pivert.
Je vous tiens au courant.

ps : c'est mon baptême de forum, désolé de n'avoir su placer ce post dans le bon forum...

Nevda · Answer 8 · 2016-06-13T12:02:06+0200

Réponse 8 / 11

Nevda

Messages postés: 15
Date d'inscription: lundi 13 juin 2016
Statut: Membre
Dernière intervention: 5 juillet 2016

13 juin 2016 à 12:02

Formidable, cela fonctionne.

Je n'ai jamais utilisé de listbox, je fonctionne en créant un fichier texte, puis en créant un tableau unidimensionnel avec .split pour étudier ce tableau (et donc les noms de fichier) avec des boucles for par exemple.
Est ce une bonne idée?

Cordialement

cs_Le Pivert · Answer 9 · 2016-06-13T12:02:58+0200

Réponse 9 / 11

cs_Le Pivert

Messages postés: 7418
Date d'inscription: jeudi 13 septembre 2007
Statut: Contributeur
Dernière intervention: 15 juin 2021

124
13 juin 2016 à 12:02

Imports System.IO
Public Class Form1

    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        Try
            ' Only get files that begin with the letter "c."
            Dim dirs As String() = Directory.GetFiles("C:\Users\Daniel\Documents\My eBooks\", "*.pdf")'adapter le chemin du dossier
            MsgBox("Nombre de fichiers PDF: " & CType(dirs.Length, MsgBoxStyle))
            Dim dir As String
            For Each dir In dirs
                ListBox1.Items.Add(dir)
            Next
        Catch
            MsgBox("The process failed: {0}", CType(e.ToString(), MsgBoxStyle))
        End Try
    End Sub
End Class

Signaler

Nevda

Messages postés: 15
Date d'inscription: lundi 13 juin 2016
Statut: Membre
Dernière intervention: 5 juillet 2016

13 juin 2016 à 14:32

Je n'ai pas bien saisi ce que faisait try...catch. Cela serait une sorte de gestion d'erreurs? Try/catch possède d'autres fonctions? Merci.

Signaler

cs_Le Pivert

Messages postés: 7418
Date d'inscription: jeudi 13 septembre 2007
Statut: Contributeur
Dernière intervention: 15 juin 2021

124 > Nevda

Messages postés: 15
Date d'inscription: lundi 13 juin 2016
Statut: Membre
Dernière intervention: 5 juillet 2016

13 juin 2016 à 14:37

Voir ceci:

https://msdn.microsoft.com/fr-fr/library/bb727317.aspx

Bonne continuation

@+ Le Pivert

Signaler

Nevda

Messages postés: 15
Date d'inscription: lundi 13 juin 2016
Statut: Membre
Dernière intervention: 5 juillet 2016

13 juin 2016 à 14:46

Très bien merci pour votre réactivité, j'ai compris. Bonne continuation.

cs_Le Pivert · Answer 10 · 2016-06-13T12:14:11+0200

Réponse 10 / 11

cs_Le Pivert

Messages postés: 7418
Date d'inscription: jeudi 13 septembre 2007
Statut: Contributeur
Dernière intervention: 15 juin 2021

124
13 juin 2016 à 12:14

NON

pourquoi passer par un fichier texte, alors qu'en entrant les fichiers dans une listBox, il suffit ensuite d'utiliser une fonction pour déplacer les fichiers en parcourant la listBox
Simple

Signaler

Nevda

Messages postés: 15
Date d'inscription: lundi 13 juin 2016
Statut: Membre
Dernière intervention: 5 juillet 2016

13 juin 2016 à 14:13

C'est vrai. Merci beaucoup!

Whismeril · Answer 11 · 2016-06-13T12:20:11+0200

Réponse 11 / 11

Whismeril

Messages postés: 16037
Date d'inscription: mardi 11 mars 2003
Statut: Contributeur
Dernière intervention: 17 juin 2021

551
13 juin 2016 à 12:20

On peut aussi parcourir le tableau dirs.

D'ailleurs tu peux remplacer la boucle

     For Each dir In dirs
                ListBox1.Items.Add(dir)
            Next

Par

ListBox1.DataSource = dirs

Signaler

Nevda

Messages postés: 15
Date d'inscription: lundi 13 juin 2016
Statut: Membre
Dernière intervention: 5 juillet 2016

Modifié par Nevda le 14/06/2016 à 08:17

Bonjour,
J'essaie de copier ces fichiers en parcourant dirs avec une boucle for. Or, le 2eme argument de My.computer.filesystem.copyfile est la destination du fichier vers lequel déplacer le fichier d'origine dont le nom est dans dirs(). Copyfile n'est elle pas la fonction à utiliser ? Ou bien dois-je modifier l'élément de dirs() au préalable ?

Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        Dim dirs As String() = IO.Directory.GetFiles("C:\Users\win8\Desktop", "*.pdf") 
        Dim dir As String
        For Each dir In dirs
            ListBox1.Items.Add(dir)
        Next
        For a As Byte = 0 To dirs.Length - 1
          My.Computer.FileSystem.CopyFile(dirs(a),????)
        Next
    End Sub

Signaler

Whismeril

Messages postés: 16037
Date d'inscription: mardi 11 mars 2003
Statut: Contributeur
Dernière intervention: 17 juin 2021

551
14 juin 2016 à 09:54

Bonjour,
Tout en haut tu as écrit vouloir déplacer les fichiers.

Je t'ai répondu d'utiliser File.Move().
As tu au moins essayé?

Signaler

Nevda

Messages postés: 15
Date d'inscription: lundi 13 juin 2016
Statut: Membre
Dernière intervention: 5 juillet 2016

14 juin 2016 à 09:56

J'ai (ré...) essayé. J'ai réussi. Bonne journée...

Votre réponse