Soyez le premier à donner votre avis sur cette source.
Snippet vu 18 161 fois - Téléchargée 37 fois
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
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.