Connaitre la taille d'un fichier (texte pas exemple)
Soyez le premier à donner votre avis sur cette source.
Snippet vu 18 161 fois - Téléchargée 37 fois
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
- Taille fichier texte
- Problème fichier texte (ofstream) taille ? ✓ - Forum - C++ & C++ .NET
- Vba ecrire fichier texte - Conseils pratiques - Visual Basic / VB.NET
- Visual basic lire fichier texte ligne par ligne - Guide
- Vba lire fichier texte avec séparateur - Forum - Visual Basic
- Récupérer les données d'un fichier texte java - Forum - Java
Function SizeOfFile(strPath)
Dim MyLocalOBJ
Dim file, LaTaille
Set MyLocalOBJ = Server.CreateObject("scripting.FileSystemObject")
Set file = MyLocalOBJ.GetFile(strPath)
SizeOfFile = formatnumber(File.Size/1024,0)
If File.Size > 0 and SizeOfFile = 0 Then
SizeOfFile = 1
End if
Set file = Nothing
Set MyLocalOBJ = Nothing
End Function
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.