Connaitre la taille d'un fichier (texte pas exemple)

0/5 (2 avis)

Snippet vu 17 948 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

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

Ajouter un commentaire

Commentaires

cs_salim
Messages postés
2
Date d'inscription
dimanche 10 février 2002
Statut
Membre
Dernière intervention
13 février 2002
-
Je voudrais renommer un fichier a la volée avec le meme objet scripting.FileSystemObject
cs_Mercury
Messages postés
329
Date d'inscription
jeudi 3 janvier 2002
Statut
Membre
Dernière intervention
7 octobre 2005
-
Voici une autre fonction basée sur le même principe, et qui permet d'avoir la taille du fichier en Kb :

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.