Afficher le nom complet du Disk Dur
Résolu
vieuxray
-
vieuxray -
vieuxray -
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
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
- Defragmenter disque dur - Guide
- Hp usb disk storage format tool - Télécharger - Stockage
- Test disque dur - Télécharger - Informations & Diagnostic
- Telechargement film d'action complet en francais - Télécharger - TV & Vidéo
10 réponses
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 !!!!
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
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
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
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
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
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 ???
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
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