bl1919
Messages postés37Date d'inscriptionsamedi 30 juillet 2011StatutMembreDernière intervention23 août 2011
-
11 août 2011 à 15:18
cs_ghuysmans99
Messages postés3982Date d'inscriptionjeudi 14 juillet 2005StatutMembreDernière intervention30 juin 2013
-
12 août 2011 à 22:54
bonjour,
j'ai trouvé cette fonction dans le forum je l'ai insérer sans aucune modification dans mon programme et une erreur surgit au niveau
(Set MyLocalBJ = server.createobject("scripting.filesystemobject").
Function SizeOfFile(strpath) As Integer
Dim MyLocalOBJ
Dim file, LaTaille
Set MyLocalOBJ = server.CreateObject("scripting.FileSystemObject")
Set file = MyLocalOBJ.GetFile(strpath)
LaTaille = file.Size
SizeOfFile = LaTaille
Set file = Nothing
Set MyLocalOBJ = Nothing
End Function
ucfoutu
Messages postés18038Date d'inscriptionlundi 7 décembre 2009StatutModérateurDernière intervention11 avril 2018211 11 août 2011 à 17:07
Bonjour,
Ouvre ton aide VB6 sur le mot FileLen (fonction FileLen)
Et utilise cette fonction native de VB6 plutôt que d'aller "sur le Net" chercher je ne sais quoi (qui ne ressemble pas à du VB6)
____________________
Utiliser le bouton "REPONSE ACCEPTEE" sur une réponse exacte facilite les recherches ultérieures d'autres forumeurs. PENSEZ-Y SVP
lolokun
Messages postés1241Date d'inscriptionmardi 10 octobre 2006StatutMembreDernière intervention27 août 20137 11 août 2011 à 16:08
Bonjour,
Oui et que cherches-tu à faire? Plutot que de poster un code recopié, expliques en français ce que tu cherches à faire
Tu es rééellement en vb6, catégorie dans laquelle tu as posté?
Perso jamais croisé ce genre de déclaration en vb; as tu essayé en enlenvant "serveur" et de mettre juste un createobject?
L'expérience, c'est une connerie par jour, mais jamais la même..
marion8316
Messages postés75Date d'inscriptionmercredi 17 août 2011StatutMembreDernière intervention27 septembre 20111 11 août 2011 à 20:49
Bonsoir,
Ci-dessous la commande "filelen" et la commande "Lof" qui donne le même résultat.
Le résultat obtenu est en octets il suffit de diviser le résultat par 1024 pour connaitre le nombre de K d'octets.
Didier
Private Sub Command1_Click()
Dim Wnb As Double
strpath = "C:\Excel\CGCOUV.txt"
Open "C:\Excel\CGCOUV.txt" For Input As #1
Wnb = FileLen(strpath)
Debug.Print Int(Wnb / 1024)
Debug.Print LOF(1)
End Sub
Vous n’avez pas trouvé la réponse que vous recherchez ?
cs_ghuysmans99
Messages postés3982Date d'inscriptionjeudi 14 juillet 2005StatutMembreDernière intervention30 juin 201316 12 août 2011 à 22:54
Ce code est probablement de l'ASP (Server.CreateObject typique) où on aurait ajouté "As Integer" à la première ligne ... En tous cas ce n'est vraiment pas la bonne solution car tout ça peut se faire via FileLen comme l'ont dit ucfoutu et Marion8316. Il est aussi très mal codé car ces 10 lignes peuvent se résumer en 3.
VB.NET is good ... VB6 is better
Utilise Réponse acceptée quand un post répond à ta question