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

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

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