Thema Datum  Von Nutzer Rating
Antwort
05.03.2017 08:19:00 jörg
NotSolved
Blau Dateigröße im GB-Bereich ermitteln
 05.03.2017 15:56:23 Mackie
*****
Solved
05.03.2017 18:39:56 jörg
Solved

Ansicht des Beitrags:
Von:
Mackie		 Datum:
05.03.2017 15:56:23		 Views:
570		 Rating:
     
Antwort:
 Nein
Thema:
Dateigröße im GB-Bereich ermitteln

Teste mal das:

Sub Schaltfläche1_Klicken()
Dim pfad_VerzA As String
Dim fs As Object
Dim fDatei As Object
Dim fdateien As Object
Dim fVerzA As Object
pfad_VerzA = "D:\"
Set fs = CreateObject("scripting.FileSystemObject")
Set fVerzA = fs.getFolder(pfad_VerzA)
Set fdateien = fVerzA.Files
For Each fDatei In fdateien
     Debug.Print fDatei.Name
     Debug.Print fDatei.Size
Next
End Sub

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
05.03.2017 08:19:00 jörg
NotSolved
Blau Dateigröße im GB-Bereich ermitteln
 05.03.2017 15:56:23 Mackie
*****
Solved
05.03.2017 18:39:56 jörg
Solved