Check alle échte Black Friday-deals Ook zo moe van nepaanbiedingen? Wij laten alleen échte deals zien

[EXCEL] lijst maken van mappen

Pagina: 1
Acties:

  • liquid_ice
  • Registratie: Februari 2001
  • Laatst online: 19-11 07:22
Ik wil in excel een lijst maken van mappen die (bijv.) in c:\ zitten (excl. sub-mappen).

Nou kan ik op m'n XP-machine in cmd-prompt een dir van de betreffende map doen en het resultaat naar een text file zetten en daarna handmatig importeren. Zo doe ik het nu in elk geval.

Maar het probleem is dat ik zo'n lijst regelmatig moet maken en dan ook van meerdere plekken en op meerdere servers.
Hiervoor zit ik eigenlijk naar een manier te zoeken waardoor het meer automatisch en dus met minder handelingen moet kunnen.

Klus page: http://klusthuis.blogspot.com


  • Lustucru
  • Registratie: Januari 2004
  • Niet online

Lustucru

26 03 2016

CSA-->OFF

On topic: kijk even hier [search=vba+excel+dir]

De oever waar we niet zijn noemen wij de overkant / Die wordt dan deze kant zodra we daar zijn aangeland


  • liquid_ice
  • Registratie: Februari 2001
  • Laatst online: 19-11 07:22
Het is me gelukt...

Ik heb een knopje gemaakt met deze code eronder:
code:
1
2
3
4
5
6
7
8
9
10
11
12
13
Sub Button1_Click()
d = Dir(Cells(1, 1), vbDirectory)
Do While d <> ""
Path = Cells(1, 1) & d
        If (GetAttr(Path) And vbDirectory) = vbDirectory Then
            If d <> "." And d <> ".." Then
                R = R + 1
                Cells(R + 2, 1) = d
             End If
        End If
        d = Dir()
    Loop
End Sub

Klus page: http://klusthuis.blogspot.com