IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

VB 6 et antérieur Discussion :

Espace disque [FAQ]


Sujet :

VB 6 et antérieur

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre à l'essai
    Profil pro
    Inscrit en
    Mars 2002
    Messages
    5
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Mars 2002
    Messages : 5
    Par défaut Espace disque
    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 !

  2. #2
    Membre averti
    Homme Profil pro
    Inscrit en
    Décembre 2004
    Messages
    42
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 43
    Localisation : France

    Informations forums :
    Inscription : Décembre 2004
    Messages : 42
    Par défaut
    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

  3. #3
    Membre à l'essai
    Profil pro
    Inscrit en
    Mars 2002
    Messages
    5
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Mars 2002
    Messages : 5
    Par défaut
    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.

  4. #4
    Rédacteur
    Avatar de DarkVader
    Homme Profil pro
    Développeur informatique
    Inscrit en
    Mai 2002
    Messages
    2 131
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Paris (Île de France)

    Informations professionnelles :
    Activité : Développeur informatique
    Secteur : High Tech - Éditeur de logiciels

    Informations forums :
    Inscription : Mai 2002
    Messages : 2 131
    Par défaut
    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

  5. #5
    Membre à l'essai
    Profil pro
    Inscrit en
    Mars 2002
    Messages
    5
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Mars 2002
    Messages : 5
    Par défaut
    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 ...

  6. #6
    Rédacteur
    Avatar de DarkVader
    Homme Profil pro
    Développeur informatique
    Inscrit en
    Mai 2002
    Messages
    2 131
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Paris (Île de France)

    Informations professionnelles :
    Activité : Développeur informatique
    Secteur : High Tech - Éditeur de logiciels

    Informations forums :
    Inscription : Mai 2002
    Messages : 2 131
    Par défaut
    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>

Discussions similaires

  1. Réponses: 4
    Dernier message: 31/08/2004, 18h11
  2. Espace disque....
    Par Grandad95 dans le forum Bases de données
    Réponses: 5
    Dernier message: 28/07/2004, 11h52
  3. Probleme d'espace disque (= 0)
    Par infotron dans le forum Administration système
    Réponses: 12
    Dernier message: 01/06/2004, 18h29
  4. VBScript pour obtenir l'espace disque libre
    Par Archangelo dans le forum ASP
    Réponses: 2
    Dernier message: 05/05/2004, 12h33
  5. visualiser l'espace disque occupé par ma base
    Par superdada dans le forum PostgreSQL
    Réponses: 2
    Dernier message: 08/01/2004, 14h59

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo