Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Ordnergröße mit hilfe von Excel auslesen.

Forumthread: 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

Anzeige

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

Anzeige
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 ;-)

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

Anzeige
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

;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige