Erreur objet requis [Résolu]

Messages postés
37
Date d'inscription
samedi 30 juillet 2011
Dernière intervention
23 août 2011
- 11 août 2011 à 15:18 - Dernière réponse :
Messages postés
3983
Date d'inscription
jeudi 14 juillet 2005
Dernière intervention
30 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


badbign badboom
Afficher la suite 

Votre réponse

5 réponses

Meilleure réponse
Messages postés
18039
Date d'inscription
lundi 7 décembre 2009
Statut
Contributeur
Dernière intervention
11 avril 2018
- 11 août 2011 à 17:07
3
Merci
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

Merci ucfoutu 3

Avec quelques mots c'est encore mieux Ajouter un commentaire

Codes Sources a aidé 88 internautes ce mois-ci

Commenter la réponse de ucfoutu
Messages postés
1241
Date d'inscription
mardi 10 octobre 2006
Dernière intervention
27 août 2013
- 11 août 2011 à 16:08
0
Merci
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..
Commenter la réponse de lolokun
Messages postés
37
Date d'inscription
samedi 30 juillet 2011
Dernière intervention
23 août 2011
- 11 août 2011 à 16:41
0
Merci
oui j'ai essayé sans "serveur" mais ça n'a pas marché. en fait le bug est descendu d'une ligne.

pour mon problème le voilà:
je voudrais lire la taille d'un fichier texte et ceci périodiquement (la périodicité n'est pas le problème).

badbign badboom
Commenter la réponse de bl1919
Messages postés
75
Date d'inscription
mercredi 17 août 2011
Dernière intervention
27 septembre 2011
- 11 août 2011 à 20:49
0
Merci
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
Commenter la réponse de marion8316
Messages postés
3983
Date d'inscription
jeudi 14 juillet 2005
Dernière intervention
30 juin 2013
- 12 août 2011 à 22:54
0
Merci
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
Commenter la réponse de cs_ghuysmans99

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.