ma fonction ne marche pasRésolu

Question

bonjour, 
en fait j'ai une erreur de syntaxe ,que j'arrive pas à la trouver, qui surgit lors de l'exécution de mon programme lié à la fonction suivante qui à pour but lire la taille d'un fichier:
Private Function SizeOfFile(strpath As String) As Double

Dim Wnb As Double

strpath = "C:\Users\bilel\Desktop\stage	rs_essai.txt"
Open "C:\Users\bilel\Desktop\stage	rs_essai.txt" For Input As #1


Wnb = FileLen(strpath)

Debug.Print Int(Wnb / 1024)
Debug.Print LOF(1)
Close #1

Return Wbn

End Function
veuillez m'aidez svp et merci d'avance.
badbign badboom

ucfoutu · Accepted Answer

Bonjour,
tu n'as nul besoin d'ouvrir un fichier pour en lire la taille !
En VB6 (la présente section de ce forum), donc 
Private Function SizeOfFile(strpath As String) As Double
 SizeOfFile = FileLen(strpath)
end function

Je me demande par ailleurs quelle pourrait bien être l'utilité d'utiliser une fonction (SizeOfFile) pour retourner tout simplement le résultat d'une fonction (FileLen) !
____________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne intallée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient

cs_ShayW · Answer

Salut

1 A quoi sert ton parametre strpath
si tu ecris dans ta fonction 
strpath = "C:\Users\bilel\Desktop\stage	rs_essai.txt"

alors déclare strpath local

2 Open "C:\Users\bilel\Desktop\stage	rs_essai.txt" For Input As #1

pourquoi pas 
open strpath For Input As #1

Ma fonction ne marche pas

2 réponses

Votre réponse

Discussions similaires