lisco
Messages postés54Date d'inscriptionlundi 14 juillet 2008StatutMembreDernière intervention28 septembre 2008
-
27 juil. 2008 à 10:24
cs_ghuysmans99
Messages postés3983Date d'inscriptionjeudi 14 juillet 2005StatutMembreDernière intervention30 juin 2013
-
28 juil. 2008 à 19:00
Bonjour ,
j'ai plusieurs fichiers Excel et je voudrais comparer leur taille en vb6 et avoir en retour lesplus grands?J'ai aucune idée en ce qui concerne l'enplacement de la taille d'un fichier?Est ce possible en VB 6?Aidez moi svp
Ensuite dans la colonne "C" de mon fichier j'ai les dates de fabrication de mes fichiers au format jj/mois/aaaa et je voudrais comparer ces dates et avoir en retour les plus recentes?
I need help please!!!
Merci d'avance
cs_ghuysmans99
Messages postés3983Date d'inscriptionjeudi 14 juillet 2005StatutMembreDernière intervention30 juin 201316 27 juil. 2008 à 12:12
Oups ... Pas besoin de passer par l'API ni par FSO : VB sait le faire tout seul :
Public Function GetFileSize(FileName As String) As Long
Dim hFile As Long
hFile = FreeFile
Open FileName For Binary As hFile
GetFileSize = LOF(hFile)
Close hFile
End Function , ----
[code.aspx?ID=41455 Colorisation syntaxique par Renfield]
_______________________________________________________________________
VB.NETis good ...VB6is better
cs_ghuysmans99
Messages postés3983Date d'inscriptionjeudi 14 juillet 2005StatutMembreDernière intervention30 juin 201316 27 juil. 2008 à 10:47
Faut voir l'API GetFileSizeEx Pour l'utiliser, il faut :
<ol><li>Ouvrir le fichier avec CreateFile et récupérer le handle</li><li>Récupérer la taille avec GetFileSizeEx</li><li>Fermer le fichier avec CloseHandle</li></ol>Evidemment, si CreateFile ou GetFileSize te renvoie(nt) zéro c'est que quelque chose n'a pas marché ...
_______________________________________________________________________
VB.NETis good ...VB6is better
lisco
Messages postés54Date d'inscriptionlundi 14 juillet 2008StatutMembreDernière intervention28 septembre 2008 27 juil. 2008 à 13:31
Merçi de ton aide , mais si j'ai par exemple 10 fichiers à comparer leurs tailles donc je dois mettre une boucle dans la fonction ,du genre:
Aprés avoir definie ma fonction, je dois l'appeler :
Dim i As Long
For i = 1 To 10
GetFileSize("B" & i)
Next i
Sachant que les noms de mes fichiers sont classés dans la colonne "B".MAis je sais pas s'il faut mettre un Call devant la foction?
Guide moi un peu sur l'utilisationde cette fonction stp,car c'est tres important pour mon proje que je dois finir la semaine prochaine,
Merci d'avance.
cs_ghuysmans99
Messages postés3983Date d'inscriptionjeudi 14 juillet 2005StatutMembreDernière intervention30 juin 201316 27 juil. 2008 à 17:18
Il ne faut pas mettre de Call, c'est une fonction et non une procédure (on peut mettre Call uniquement lors de l'appel d'une Sub)
_______________________________________________________________________
VB.NETis good ...VB6is better
cs_ghuysmans99
Messages postés3983Date d'inscriptionjeudi 14 juillet 2005StatutMembreDernière intervention30 juin 201316 28 juil. 2008 à 19:00
Faut dire je ne lui ai jamais trouvé d'utilité mais ce n'est pas nous qui avons fait VB ...
_______________________________________________________________________
VB.NETis good ...VB6is better