Discussion :

[donny]

salut,

Lorsque je lance un de mes programme, il crée un fichier cache et le supprime une fois l'execution du programme terminé.

J'aurai aimé savoir si il etait possible à l'aide de vbscript de recuperer la taille du fichier avant qu'il ne soit supprimer ?
si vbscript et capable deja de recuperer une taille de fichier ?

Merci

[donny]

j'ai essayer cela mais sa ne fonctionne pas

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Set objetFSO = CreateObject("Scripting.FileSystemObjet")
Set Fichier = objetFSO.GetFile("C:\Documents and Settings\xx.txt")
Wscript.Echo objetFSO.ParentFolder

[pc75]

Bonjour,

Un extrait de MSDN :

Size, propriété


Description

Pour les fichiers, cette propriété renvoie la taille en octets du fichier spécifié. Pour les dossiers, cette propriété renvoie la taille en octets de tous les fichiers et sous-dossiers du dossier.

Syntaxe

object.Size

L'argument object représente toujours un objet File ou Folder.

Remarques

Le code suivant illustre l'emploi de la propriété Size avec un objet Folder :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Sub AfficheTailleDossier(specfichier)
    Dim fs, f, s
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set f = fs.GetFolder(specfichier)
    s = UCase(f.Name) & " uses " & f.size & " bytes."
    MsgBox s, 0, "Infos de taille du dossier"
End Sub

[donny]

j'ai essayer cela et sa ne fonctionne pas

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Sub AfficheTailleDossier(specfichier)
Dim fs, f, s
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFolder(specfichier)
s = UCase(f.Name) & " uses " & f.size & " bytes."
MsgBox s, 0, "Infos de taille du dossier"
End Sub
 
Msgbox AfficheTailleDossier ("C:\Documents and Settings\xx.txt")

j'ai cette erreur :

Type incompatible AfficheTailleDossier

[pc75]

Re,

Essaie ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
Set objetFSO = CreateObject("Scripting.FileSystemObjet")
Set Fichier = objetFSO.GetFile("C:\Documents and Settings\xx.txt")
Wscript.Echo Fichier.Size

[donny]

ça ne fonctionne pas
j'ai ce message d'erreur

un composant ActiveX ne peut pas creer un objet.:'Scripting.FileSystemObjet'