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

Soyez le premier à donner votre avis sur cette source.

Snippet vu 18 390 fois - Téléchargée 39 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_Mercury Messages postés 329 Date d'inscription jeudi 3 janvier 2002 Statut Membre Dernière intervention 7 octobre 2005
24 févr. 2003 à 15:43
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
cs_salim Messages postés 2 Date d'inscription dimanche 10 février 2002 Statut Membre Dernière intervention 13 février 2002
13 févr. 2002 à 09:17
Je voudrais renommer un fichier a la volée avec le meme objet scripting.FileSystemObject

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.