Connaitre la taille d'un fichier (texte pas exemple)
Contenu du snippet
If SizeOfFile(CheminPhysiqueVersMonFichier) > 0 Then
'on peu lire des informations
else
'on aura une erreur
End If
Un fichier peut être existant et totalement vide. Dans ce cas là? si on essaye de lire les informations contenus, on reçoit en récompense une belle erreur !!
-------------et un plantage :)
'on peu lire des informations
else
'on aura une erreur
End If
Source / Exemple :
Function SizeOfFile(strPath)
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
Conclusion :
Un fichier peut être existant et totalement vide. Dans ce cas là? si on essaye de lire les informations contenus, on reçoit en récompense une belle erreur !!
-------------et un plantage :)
A voir également
- Connaitre la taille d'un fichier (texte pas exemple)
- Exemple de page d'authentification - Conseils pratiques -PHP
- Vba écrire dans un fichier texte - Conseils pratiques -Visual Basic / VB.NET
- Fichier .ini - Conseils pratiques -Visual Basic / VB.NET
- Roulettechat texte - Forum PHP
- Taille tableau php ✓ - Forum PHP
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.