CONNAITRE LA TAILLE D'UN FICHIER (TEXTE PAS EXEMPLE)

Signaler
Messages postés
2
Date d'inscription
dimanche 10 février 2002
Statut
Membre
Dernière intervention
13 février 2002
-
Messages postés
329
Date d'inscription
jeudi 3 janvier 2002
Statut
Membre
Dernière intervention
7 octobre 2005
-
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.

https://codes-sources.commentcamarche.net/source/8755-connaitre-la-taille-d-un-fichier-texte-pas-exemple

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
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