Afficher le nom complet du Disk Dur

Résolu/Fermé

vieuxray - 25 déc. 2013 à 10:46
vieuxray - 26 déc. 2013 à 18:16

Bonjour a toutes et tous, Forum Bonjour

BONNE FETES A TOUS ET JOYEUX NOEL

Sous Excel 2007 VBA

J'ai deux Disque dur baptiser comme ci-dessous

(1) VELOCIRAPTEUR (C:)
(2) ESCLAVE 500 Gigas (D:)

Avec ce petit code je selectionne un Disk Dur et un répertoire
Ex: ESCLAVE 500 Gigas (D:) et le répertoire Videos

je souhaiterai svp afficher dans mon Label3 le nom complet
comme ceci >>> ESCLAVE 500 Gigas D:\Videos

Merci a vous pour votre temps et votre aide

Joyeux noël Codialement Ray


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

A voir également:

Afficher le nom complet du Disk Dur
Cloner disque dur - Guide
Check disk - Guide
Defragmenter disque dur - Guide
Nom de l'adresse - Forum Réseaux sociaux
Trouver un nom avec une adresse ✓ - Forum Loisirs / Divertissements

10 réponses

Réponse 1 / 10

f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 702
25 déc. 2013 à 12:25

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

Réponse 2 / 10

f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 702
25 déc. 2013 à 18:28

Bonjour,

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

Réponse 3 / 10

f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 702
Modifié par f894009 le 26/12/2013 à 10:13

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

Réponse 4 / 10

vieuxray
25 déc. 2013 à 15:04

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

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question

Réponse 5 / 10

vieuxray
25 déc. 2013 à 19:19

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

Réponse 6 / 10

vieuxray
26 déc. 2013 à 11:46

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

Réponse 7 / 10

f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 702
26 déc. 2013 à 17:00

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 ???

Réponse 8 / 10

vieuxray
26 déc. 2013 à 17:56

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

Réponse 9 / 10

f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 702
26 déc. 2013 à 18:05

Re,

Dans une ListBox peut'on mettre comme Non.

Réponse 10 / 10

vieuxray
26 déc. 2013 à 18:16

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

Discussions similaires

"Nom de l'adresse" lors d'une inscription sur une site

Annuaire portable gratuit à partir d'un nom

programme qui n'affiche pas le mot secret

Comment regarder un film complet sans inscriptions et gratuit ?

A quoi correspond cette croix sur snapchat

Discussions similaires

Newsletters