begin process at 2012 05 27 06:14:45
  Trouver un code source :
 
dans
 
[ Dernières recherches ]
Accueil > 

Code

 > 

FileSystem

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

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


 Information sur la source

Note :
8 / 10 - par 1 personne
8,00 / 10

  • 1

  • 2

  • 3

  • 4

  • 5

  • 6

  • 7

  • 8

  • 9

  • 10
Catégorie :FileSystem Niveau :Débutant Date de création :08/02/2002 Date de mise à jour :08/02/2002 19:42:05 Vu :15 906
Auteur : VicoLaChips2

Ecrire un message privé
Site perso
Commentaire sur cette source (2)
Ajouter un commentaire et/ou une note

 Description

If SizeOfFile(CheminPhysiqueVersMonFichier) > 0 Then
'on peu lire des informations
else
'on aura une erreur
End If

Source

  • 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)
	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 :)


 Sources du même auteur

RENOMMER UN FICHIER À LA VOLÉ
Source avec Zip Source avec une capture ASP CHAT VER 1.0(DEF)
Toutes les sources de VicoLaChips2

 Sources de la même categorie

LIST DIRECTORY WITH SPECIFIED EXTENSION & LINK par Syruis
Source avec une capture EXPLORATEUR ASP EN UN SEUL FICHIER SANS INSTALLATION par informatika2001
LISTING ET SUPPRESSION DE FICHIER par Jackboy
DÉCOUPER UNE CHAINE DE CARACTÈRE par bambina100
Source .NET (Dotnet) ASP.NET - CHARGER TOUS LES SOUS-RÉPERTOIRES DANS UN DATATABL... par fabrice69
Toutes les sources de la catégorie FileSystem

Commentaires et avis

Commentaire de salim le 13/02/2002 09:17:14

Je voudrais renommer un fichier a la volée avec le meme objet scripting.FileSystemObject

Commentaire de Mercury le 24/02/2003 15:43:41

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

 Ajouter un commentaire

Nos sponsors


Sondage...

Comparez les prix


iPod touch 3rd Generation (64 Go)
Entre 374€ et 379€

Visiter le guide achat

CalendriCode

Mai 2012
LMMJVSD
 123456
78910111213
14151617181920
21222324252627
28293031   

Consulter la suite du CalendriCode

A découvrir
 
Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils.
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés

Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Temps d'éxécution de la page : 1,092 sec (4)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales
Outils Convertisseur VB/C# Snippets et scripts Outils en ligne La ToolBox
Communauté Programmation Photographie Technologie Newsgroups Emploi Forum Blogs
Guide d'achat Téléphonie mobile Image et son Informatique Bureautique Jeux vidéo
Logiciels Internet & Réseau Développement Market Android Jeux & Loisirs Graphisme Multimédia Sécurité Pilotes
Loisirs Cartes virtuelles Vidéos droles Jeux en ligne Géoguide AndroLib (Android Market)