cs_Mercury
Messages postés329Date d'inscriptionjeudi 3 janvier 2002StatutMembreDerniè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és2Date d'inscriptiondimanche 10 février 2002StatutMembreDernière intervention13 février 2002 13 févr. 2002 à 09:17
Je voudrais renommer un fichier a la volée avec le meme objet scripting.FileSystemObject
24 févr. 2003 à 15:43
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
13 févr. 2002 à 09:17