Anzeige
Archiv - Navigation
248to252
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
248to252
248to252
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Ordnergröße mit hilfe von Excel auslesen.

Ordnergröße mit hilfe von Excel auslesen.
25.04.2003 10:07:14
Gerrit
Hallo Leute,

ich möchte gerne mit Excel die Ordnergröße verschiedener Ordner auslesen und in einer Tabelle aufführen. Dieses soll automatisch mit einer Klickfunktion ausgeführt werden. Könnte mir da einer weiterhelfen.

Gr€€tz Gerrit

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Ordnergröße mit hilfe von Excel auslesen.
25.04.2003 10:42:43
Andreas S

Hallo,

die folgende Prozedur liefert die Ordnergröße in Byte:

Sub Ordnergroesse()
ShowFolderInfo ("H:\Excel")
End Sub

Sub ShowFolderInfo(folderspec)
Dim fs, f, s
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFolder(folderspec)
s = f.Size
MsgBox s
End Sub

Gruss
Andreas

Re: Ordnergröße mit hilfe von Excel auslesen.
25.04.2003 10:48:10
Gerrit

Danke Andeas! Nur wie und wo muss ich das nun eingeben :-)

Wie gesagt, hab noch nie mit VB gearbeitet ;-)

Re: Ordnergröße mit hilfe von Excel auslesen.
25.04.2003 10:52:59
Gerrit

Danke Andreas!!! Aber nur wie und wo muss ich das eingaben

Hab vom Programmieren mit VB ein Plan ;-)

Anzeige
Re: Ordnergröße mit hilfe von Excel auslesen.
25.04.2003 11:05:04
Gerrit

Habs nun hinbekommen. Nun muss ich den Wert auch automatische in ein Tabellenfeld bekommen. Zusätzlich müssen auch noch die Werte anderer Ordner ausgegeben werde und automatisch aufgeführt werden.

Also nich so einfach, hoffe das es jetzt nur einmal gepostet wird :-)

Gruß Gerrit

Re: Ordnergröße mit hilfe von Excel auslesen.
25.04.2003 11:53:45
geri

Hallo

damit Eintrag in Zelle A1 steht ändere macro so ab

Sub ShowFolderInfo(folderspec)
Dim fs, f, s
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFolder(folderspec)
s = f.Size
Range("a1") = s
'MsgBox s
End Sub

gruss geri

300 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige