Espace disque [FAQ]

**alinehg** · 23/02/2005, 16h26

Bonjour,

Je souhaite faire un prog qui créé un fichier texte dans lequel sera stocké :
- la taille totale du disque dur
- l'espace disque occupé
- l'espace disque libre

...

Je ne sais pas comment m'y prendre.
Avez vous une idée ?

Merci de votre aide !

**Shadowritter** · 23/02/2005, 16h34

Personnellement j'aurais plutôt fais ça en Java vu que c'est juste un traitement

Ben décomposes tes étapes avant, par exemple :

- chargement de l'application -> traitement et création du fichier texte
- fin de l'appli et ouverture du fichier texte (si tu le souhaites bien sur)

Je n'ai pas les fonctions en tête mais il te faut en gros :

- au minimum 2 des 3 données du disque (la 3ème devenant très facile à calculer)

- un calcul pour convertir le résultat en Mo si tu le veux en Mo (ou en Go, etc)

- écrire les infos obtenus dans un fichier texte (rien de bien sorcier tu trouveras les tutos sans problèmes, seule la mise en forme peut être contraignante)

Voilà avec ça tu sais où et quoi chercher logiquement, à moins qu'il te manque d'autres fonctions

**alinehg** · 23/02/2005, 16h46

D'accord.

En fait , je n'avais pas trop d'idée sur le langage approprié , je n'ai jamais fait de Java , mais je vais regarder ce que cela peut donner.

Merci.

**DarkVader** · 23/02/2005, 17h45

Bien sur, bien sur - A trop faire la java, on finit par perdre ses repères.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
    Dim fso As New FileSystemObject, d As Drive, txt As String, ts As TextStream
 
    For Each d In fso.Drives
        If d.DriveType = 2 Or d.DriveType = 5 Then
            txt = txt & "Disk " & d.DriveLetter & "(" & d.VolumeName & ")" & vbTab
            txt = txt & "Total : " & d.TotalSize & vbTab
            txt = txt & "Libre : " & d.FreeSpace & vbCrLf
        End If
    Next
 
    Set ts = fso.OpenTextFile("C:\MyFile.txt", ForWriting, True)
    ts.Write txt
    ts.close
    Set ts = Nothing
    Set fso = Nothing

Sinon pas de multipostages SVP - veuillez respecter les règles d'utilisation des forums

**alinehg** · 23/02/2005, 18h12

Petite question : est il possible de "transformer" ce code pour l'utiliser en VBScript ?
Et si oui , comment faut il s'y prendre ?

Merci encore ...

**DarkVader** · 23/02/2005, 22h30

en utilisant createobject

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
<html>
<script language="vbscript">
	Dim fso, ts, d, txt
	set fso = CreateObject("Scripting.FileSystemObject")
    For Each d In fso.Drives 
        If d.DriveType = 2 Or d.DriveType = 5 Then 
            txt = txt & "Disk " & d.DriveLetter & "(" & d.VolumeName & ")" & vbTab 
            txt = txt & "Total : " & d.TotalSize & vbTab 
            txt = txt & "Libre : " & d.FreeSpace & vbCrLf 
        End If 
    Next 
    set ts = fso.CreateTextFile("C:\MyFile.txt", True) 
    ts.Write txt 
    ts.Close
    set ts = Nothing 
    set fso = Nothing
</script>
</html>

Espace disque [FAQ]

VB 6 et antérieur

Vue hybride

Discussions similaires

Partager

Partager