cs_clad87
Messages postés42Date d'inscriptionsamedi 28 décembre 2002StatutMembreDernière intervention24 août 2015 11 sept. 2008 à 17:30
Ne marche pas chez moi (sus vista), renvoie 0 :/
yan35
Messages postés185Date d'inscriptiondimanche 29 juin 2003StatutMembreDernière intervention20 juin 2013 3 nov. 2007 à 15:41
Merci pour cette astuce. Je l'intègre dans mes développements.
C'est génial.
BruNews
Messages postés21040Date d'inscriptionjeudi 23 janvier 2003StatutModérateurDernière intervention21 août 2019 15 juil. 2006 à 09:22
Une propriété suppose un objet de classe et vb n'a pas d'objet File, CFile ou autre il me semble.
shadow1779
Messages postés706Date d'inscriptionmercredi 17 novembre 2004StatutMembreDernière intervention29 septembre 2013 14 juil. 2006 à 14:49
:s ca existe pas une propriété .length?, sachant qu'un caractère fait un octet on est vite fixé non?
daetips
Messages postés142Date d'inscriptionjeudi 10 juillet 2003StatutMembreDernière intervention10 novembre 2007 13 juil. 2006 à 18:55
oui, j'ai utilisé la fonction que tu a donné pour générer un fichier en faisant une boucle de 0 a 43 au lieu de 0 à 3 ;)
Renfield
Messages postés17287Date d'inscriptionmercredi 2 janvier 2002StatutModérateurDernière intervention27 septembre 202174 13 juil. 2006 à 17:31
175 Go :s
sacré fichier !
daetips
Messages postés142Date d'inscriptionjeudi 10 juillet 2003StatutMembreDernière intervention10 novembre 2007 13 juil. 2006 à 16:39
ca marche bien.
testé sur un fichier de 175 Go (188 978 560 980 octets)
et ca renvoi la bonne taille :)
Renfield
Messages postés17287Date d'inscriptionmercredi 2 janvier 2002StatutModérateurDernière intervention27 septembre 202174 13 juil. 2006 à 14:36
j'y songeai...
la première chose a faire, c'est de changer d'API...
comme me l'a indiqué notre ami BruNews, CreateFile peux violer un partage de droits d'accès, et se planter.
FindFirstFile ferait donc mieux l'affaire...
je verrai cette petite modif au retour des vacances ^^
cs_EBArtSoft
Messages postés4525Date d'inscriptiondimanche 29 septembre 2002StatutModérateurDernière intervention22 avril 20199 13 juil. 2006 à 14:30
Le reflexe => Codyx.org !
;)
@+
Renfield
Messages postés17287Date d'inscriptionmercredi 2 janvier 2002StatutModérateurDernière intervention27 septembre 202174 13 juil. 2006 à 13:50
16Go, pas 28, dsl
Renfield
Messages postés17287Date d'inscriptionmercredi 2 janvier 2002StatutModérateurDernière intervention27 septembre 202174 13 juil. 2006 à 13:42
pour tester, si vous n'avez pas de gros fichiers sous la main :
utilisez le code suivant, pour générer un fichier de 28Go ...
Dim hFile As Long
Dim i As Long
hFile = CreateFile("i:\a.big", GENERIC_WRITE, 0, ByVal 0&, OPEN_ALWAYS, 0, 0)
If hFile <> INVALID_HANDLE_VALUE Then
For i = 0 To 3
SetFilePointer hFile, &HFFFFFFFF, 0, FILE_CURRENT
Next i
SetEndOfFile hFile
CloseHandle hFile
End If
11 sept. 2008 à 17:30
3 nov. 2007 à 15:41
C'est génial.
15 juil. 2006 à 09:22
14 juil. 2006 à 14:49
13 juil. 2006 à 18:55
13 juil. 2006 à 17:31
sacré fichier !
13 juil. 2006 à 16:39
testé sur un fichier de 175 Go (188 978 560 980 octets)
et ca renvoi la bonne taille :)
13 juil. 2006 à 14:36
la première chose a faire, c'est de changer d'API...
comme me l'a indiqué notre ami BruNews, CreateFile peux violer un partage de droits d'accès, et se planter.
FindFirstFile ferait donc mieux l'affaire...
je verrai cette petite modif au retour des vacances ^^
13 juil. 2006 à 14:30
;)
@+
13 juil. 2006 à 13:50
13 juil. 2006 à 13:42
utilisez le code suivant, pour générer un fichier de 28Go ...
Dim hFile As Long
Dim i As Long
hFile = CreateFile("i:\a.big", GENERIC_WRITE, 0, ByVal 0&, OPEN_ALWAYS, 0, 0)
If hFile <> INVALID_HANDLE_VALUE Then
For i = 0 To 3
SetFilePointer hFile, &HFFFFFFFF, 0, FILE_CURRENT
Next i
SetEndOfFile hFile
CloseHandle hFile
End If