Remplacer la command DIR pour les noms longs

Le
Marc Sylvain
Si je fait un Dir de 116536*.dwg le résultat est :



04/25/2007 11:32 AM 68,059 116536R15.dwg

04/25/2007 11:32 AM 371,799 116536RA1.dwg

04/25/2007 11:32 AM 280,627 116536RA8.dwg

04/25/2007 11:32 AM 355,213 116536SA2.dwg

04/25/2007 11:32 AM 60,771 116539a01.dwg



Comme vous voyer j'ai trouver 116539a01.dwg car la commande dir

en VB utilise les noms courts et long équivalent au Dir/x du dos



04/25/2007 11:32 AM 68,059 116721~2.DWG 116536R15.dwg

04/25/2007 11:32 AM 371,799 118711~3.DWG 116536RA1.dwg

04/25/2007 11:32 AM 280,627 118331~1.DWG 116536RA8.dwg

04/25/2007 11:32 AM 355,213 118D11~1.DWG 116536SA2.dwg

04/25/2007 11:32 AM 60,771 116536~5.DWG 116539a01.dwg



Par quoi je peux remplacer ma commande DIR ?

pour ne pas avoir le fichier 116539a01.dwg dans ma liste



merci

Marc
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Aski
Le #15348901
Hello Marc Sylvain,

Tu as savamment écrit :

Si je fait un Dir de 116536*.dwg le résultat est :



04/25/2007 11:32 AM 68,059 116536R15.dwg

04/25/2007 11:32 AM 371,799 116536RA1.dwg

04/25/2007 11:32 AM 280,627 116536RA8.dwg

04/25/2007 11:32 AM 355,213 116536SA2.dwg

04/25/2007 11:32 AM 60,771 116539a01.dwg



Comme vous voyer j'ai trouver 116539a01.dwg car la commande dir

en VB utilise les noms courts et long équivalent au Dir/x du dos



04/25/2007 11:32 AM 68,059 116721~2.DWG 116536R15.dwg

04/25/2007 11:32 AM 371,799 118711~3.DWG 116536RA1.dwg

04/25/2007 11:32 AM 280,627 118331~1.DWG 116536RA8.dwg

04/25/2007 11:32 AM 355,213 118D11~1.DWG 116536SA2.dwg

04/25/2007 11:32 AM 60,771 116536~5.DWG 116539a01.dwg



Par quoi je peux remplacer ma commande DIR ?

pour ne pas avoir le fichier 116539a01.dwg dans ma liste



merci

Marc



Utilise les API FindFirstFile, FindNextFile et FindClose
http://docvb.free.fr/apidetail.php?idapiF

Aski
Marc Sylvain
Le #15348881
Merci Aski, mais

Je veux bien utiliser les fonctions FindFirstFile



Mais lorsque je déclare la fonction FindFirstFile

J'ai l'erreur

Type défini par l'utilisateur non défini



Pourquoi ? Faut t'il référencer une librairie ?



Merci

Marc




"Aski"
Hello Marc Sylvain,

Tu as savamment écrit :

Si je fait un Dir de 116536*.dwg le résultat est :



04/25/2007 11:32 AM 68,059 116536R15.dwg

04/25/2007 11:32 AM 371,799 116536RA1.dwg

04/25/2007 11:32 AM 280,627 116536RA8.dwg

04/25/2007 11:32 AM 355,213 116536SA2.dwg

04/25/2007 11:32 AM 60,771 116539a01.dwg



Comme vous voyer j'ai trouver 116539a01.dwg car la commande dir

en VB utilise les noms courts et long équivalent au Dir/x du dos



04/25/2007 11:32 AM 68,059 116721~2.DWG 116536R15.dwg

04/25/2007 11:32 AM 371,799 118711~3.DWG 116536RA1.dwg

04/25/2007 11:32 AM 280,627 118331~1.DWG 116536RA8.dwg

04/25/2007 11:32 AM 355,213 118D11~1.DWG 116536SA2.dwg

04/25/2007 11:32 AM 60,771 116536~5.DWG 116539a01.dwg



Par quoi je peux remplacer ma commande DIR ?

pour ne pas avoir le fichier 116539a01.dwg dans ma liste



merci

Marc



Utilise les API FindFirstFile, FindNextFile et FindClose
http://docvb.free.fr/apidetail.php?idapiF

Aski


Jean-marc
Le #15348871
Marc Sylvain wrote:
Merci Aski, mais

Je veux bien utiliser les fonctions FindFirstFile
Mais lorsque je déclare la fonction FindFirstFile

J'ai l'erreur

Type défini par l'utilisateur non défini

Pourquoi ? Faut t'il référencer une librairie ?



Hello,
une alternative est l'utilisation de l'API:
GetShortPathName

Elle permet de retrouver le nom court à partir du nom long.
Son utilisation (avec un exemple) est décrite ici:
http://faq.vb.free.fr/index.php?question0

Pour FindFirstFile et consort, il faut quelques déclarations en plus,
du genre:

Private Declare Function FindFirstFile Lib "kernel32" Alias "FindFirstFileA"
(ByVal lpFileName As String, lpFindFileData As WIN32_FIND_DATA) As Long
Private Declare Function FindNextFile Lib "kernel32" Alias "FindNextFileA"
(ByVal hFindFile As Long, lpFindFileData As WIN32_FIND_DATA) As Long
Private Declare Function GetFileAttributes Lib "kernel32" Alias
"GetFileAttributesA" (ByVal lpFileName As String) As Long
Private Declare Function FindClose Lib "kernel32" (ByVal hFindFile As Long)
As Long

Const MAX_PATH = 260
Const MAXDWORD = &HFFFF
Const INVALID_HANDLE_VALUE = -1
Const FILE_ATTRIBUTE_ARCHIVE = &H20
Const FILE_ATTRIBUTE_DIRECTORY = &H10
Const FILE_ATTRIBUTE_HIDDEN = &H2
Const FILE_ATTRIBUTE_NORMAL = &H80
Const FILE_ATTRIBUTE_READONLY = &H1
Const FILE_ATTRIBUTE_SYSTEM = &H4
Const FILE_ATTRIBUTE_TEMPORARY = &H100

Private Type FILETIME
dwLowDateTime As Long
dwHighDateTime As Long
End Type

Private Type WIN32_FIND_DATA
dwFileAttributes As Long
ftCreationTime As FILETIME
ftLastAccessTime As FILETIME
ftLastWriteTime As FILETIME
nFileSizeHigh As Long
nFileSizeLow As Long
dwReserved0 As Long
dwReserved1 As Long
cFileName As String * MAX_PATH
cAlternate As String * 14
End Type

Tu trouvera sune description et un exemple ici:
http://allapi.mentalis.org/apilist/FindFirstFile.shtml


Bonne suite!


--
Jean-marc Noury (jean_marc_n2)
Microsoft MVP - Visual Basic
mailto: remove '_no_spam_' ;
FAQ VB: http://faq.vb.free.fr/
Aski
Le #15411691
Hello Marc Sylvain,

Il faut déclarer les fonctions comme le montre l'exemple dont je t'ai fourni
le lien.

Aski

Merci Aski, mais

Je veux bien utiliser les fonctions FindFirstFile
Mais lorsque je déclare la fonction FindFirstFile
J'ai l'erreur
Type défini par l'utilisateur non défini
Pourquoi ? Faut t'il référencer une librairie ?


"Aski"



Utilise les API FindFirstFile, FindNextFile et FindClose
http://docvb.free.fr/apidetail.php?idapiF

Aski




Laurent Jordi
Le #15411661
Salut,

Tout d'abord l'élément qui permet d'accélérer le remplissage des contrôles
est Autoredraw, si le contrôle n'en a pas, utiliser celui du formulaire.

Concernant la liste des fichiers, je te conseille vivement d'utiliser le
Scripting.filesystemeobject qui est bien plus adapté aux nouveaux systèmes
d'exploitation.

Bien à toi

Laurent Jordi
http://www.ezlogic.mc
http://www.laurentjordi.net

"Marc Sylvain"
Si je fait un Dir de 116536*.dwg le résultat est :



04/25/2007 11:32 AM 68,059 116536R15.dwg

04/25/2007 11:32 AM 371,799 116536RA1.dwg

04/25/2007 11:32 AM 280,627 116536RA8.dwg

04/25/2007 11:32 AM 355,213 116536SA2.dwg

04/25/2007 11:32 AM 60,771 116539a01.dwg



Comme vous voyer j'ai trouver 116539a01.dwg car la commande dir

en VB utilise les noms courts et long équivalent au Dir/x du dos



04/25/2007 11:32 AM 68,059 116721~2.DWG 116536R15.dwg

04/25/2007 11:32 AM 371,799 118711~3.DWG 116536RA1.dwg

04/25/2007 11:32 AM 280,627 118331~1.DWG 116536RA8.dwg

04/25/2007 11:32 AM 355,213 118D11~1.DWG 116536SA2.dwg

04/25/2007 11:32 AM 60,771 116536~5.DWG 116539a01.dwg



Par quoi je peux remplacer ma commande DIR ?

pour ne pas avoir le fichier 116539a01.dwg dans ma liste



merci

Marc




Publicité
Poster une réponse
Anonyme