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
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
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
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
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
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
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
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" a écrit dans le message de news:
Utilise les API FindFirstFile, FindNextFile et FindClose http://docvb.free.fr/apidetail.php?idapiF
Aski
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" <aski@asci.asc> a écrit dans le message de news:
OO6UhKCiHHA.4516@TK2MSFTNGP03.phx.gbl...
Utilise les API FindFirstFile, FindNextFile et FindClose
http://docvb.free.fr/apidetail.php?idapiF
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" a écrit dans le message de news:
Utilise les API FindFirstFile, FindNextFile et FindClose http://docvb.free.fr/apidetail.php?idapiF
Aski
Laurent Jordi
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.
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
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.
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.
