Afficher le nom complet du Disk Dur

Bonjour et bon Noel,

Sub SelDossier()
    On Error Resume Next
    Dim objShell, objFolder, chemin
    
    Set objShell = CreateObject("Shell.Application")
    Set objFolder = objShell.BrowseForFolder(&H0&, "Sélection d'un dossier", &H1&)
    
    Volume = Left(objFolder.ParentFolder, Len(objFolder.ParentFolder) - 4) & " "
    chemin = Volume & objFolder.ParentFolder.ParseName(objFolder.Title).Path & ""
    
    MsgBox chemin
    UserForm1.Label3.Caption = chemin          '*** Nom complet
End Sub

Bonjour,

tester si il y a des doublons ou plusieurs dans la liste de ce répertoire (E:\Videos) petite explication svp !!!!

Bonjour,

Normalement, il ne peut pas y avoir de doublon(s) ,au sens propre du terme, dans un repertoire. Vous pouvez avoir fichier.avi et fichier(1).avi suivant l'os du PC

salut f894009

Merci pour ta réponse et pour le code

j'ai adapter a mon programme et cela fonctionne bien, merci a toi.

Dans mon répertoire j'ai une longue liste (titre de film.avi) uniquement

Te serait'il possible svp de m'aider a faire une macro pour tester si il y a des doublons ou plusieurs dans la liste de ce répertoire (E:\Videos)

j'ai chercher sur le net et forums, je n'ai pas trouver mon bonheur pour les doublons
dans un répertoire.

En tout cas merci pour ton aide et encore joyeux noël

Cordialement Ray

Salut f894009

Merci pour ta réponse

j'ai fait un petit programme avec un useform et j'ai mis une ListBox1

Donc dans mon répertoire j'ai une liste de vidéos que j'ai transférer dans la listBox1

maintenant je souhaiterai svp vérifier si je n'ai pas de doublons dans la listbox1
et si il y en a auquel cas de me le signaler.

l'extention des vidéos est toujours (.avi)

voila je te souhaite la bonne soirée et merci

Cdlt Ray

Salut f894009

Merci pour la réponse, effectivement je me suis rendu compte de ca, c'est pourquoi j'ai fait en sorte de voir ma liste dans une ListBox

Maintenant j'ai donc ma liste dans une ListBox et la par contre c'est possible de vérifier si doublons il y a ou pas.

je cherche comment faire cela

Merci pour l'aide apporter

Cordialement Ray

Re,

j'ai donc ma liste dans une ListBox et la par contre c'est possible de vérifier si doublons il y a ou pas. Desole, mais je ne comprends pas. S'il n'y a pas de doublon en fichiers, pourquoi il y en aurait dans la listbox ???

Salut f894009

Je me suis encore planté sur ce coup la et bien sur tu a raison.

j'en reste la pour l'instant.

Juste une petite question svp car je n'ai pas trouver sur le net.

Dans une ListBox peut'on mettre comme dans les Listviews des lignes (Gridlines)

j'ai essayer mais ca marche pas

Merci de ton aide

Cdlt Ray

Re,

Dans une ListBox peut'on mettre comme Non.

Re f894009

Merci beaucoup pour ta réponse

Et merci pour ton aide et ton savoir

bonne soirée a toi

bonnes fètes de fin d'année 2013

je clos le sujet

Bien cordialement Raymond