Computer Informationen

Inhalt

✓ Zugriff auf die Computer Informationen über environ()
✓ Speicherplatz eines Laufwerks auslesen mit dem FileSystemObject
✓ Byte in Giga-Byte umrechnen
✓ Format-Funktion, um genau zwei Nachkommastellen zu erzeugen
✓ Variablen und Datentypen
✓ For-Next-Schleife
✓ Direkfenster und Debug.Print
✓ Messageboxen
✓ Strings verknüpfen

 

Code (Alle Computer Informationen)

Sub AlleInfos() 
 
Dim i As Long 
 
For i = 1 To 60 
    Debug.Print Environ(i) 
Next i 

'Bereitgestellt von VBATrainer: www.vbatrainer.de

End Sub

 

 

Code (Einzelne Computer Informationen)

 Sub Infos() 
 
MsgBox Environ("computername") 
MsgBox Environ("username") 
 
'Bereitgestellt von VBATrainer: www.vbatrainer.de

End Sub

 

 

Code (Freier Speicherplatz)

Sub Speicherplatz() 
 
Dim objFSO As Object 
 
Set objFSO = CreateObject("Scripting.Filesystemobject") 
 
MsgBox Format(objFSO.getdrive("C").freespace / 1024 ^ 3, "0.00") & " GB" 
 
Set objFSO = Nothing 
 
'Bereitgestellt von VBATrainer: www.vbatrainer.de

End Sub

 

Share on linkedin
Share on xing
Share on email
Share on whatsapp
Share on facebook

Ähnliche themen

VBATrainer Excel VBA Coaching - Dozent Kai Weissmann

Kai Weissmann

VBA Entwickler

Hallo und schön, dass du hier bist! Schau dich gerne in meinen Blog-Posts um. Falls du Fragen zu einem Thema hast, schreib mir gerne einen Kommentar.

Kai Weissmann

Persönliche Empfehlungen
Mein Kurs

Jetzt registrieren

Close Bitnami banner
Bitnami