Hente submappenavn til excel regneark
Hej alle eksperterJeg skal hente mappenavne fra mine eksterne harddiske, og liste dem i et excelark og har fundet en makro på spørgsmålet http://www.eksperten.dk/spm/908738, og den virker faktisk perfekt, men ikke til mit brug. Den skal kun hente mappenavne ikke submapper eller filer. Kan nedenstående makro rettes til eller hvad kan jeg evt gøre?
Mvh. rwj
Rem Koden anbringes under Ark1 (højreklik på arkfanen - Vis programkode)
Rem Overskrift i række 1
Rem Makroen kan kaldes fra regnearket med Alt+F8 - afspil "OpretFilOversigt"
Rem Udpeg mappen - klik neutralt sted heri - tryk annuller - så bliver alle filer behandlet
Rem Efter kørslen - gem regnearket og kald makroen & udpeg næste mappe.
Rem Mit regneark kan i givet fald fremsendes - hvis du sender en mail - @-adr. under min profil
rem ===========================================
Dim sidsteRække As Long, aktuelleMappe As String
Dim filNavn As String, filStørrelse As Long, filType As String, sidstÆndret As Date
Dim ræk As Long, række As String
Sub opretFilOversigt()
sidsteRække = ActiveCell.SpecialCells(xlLastCell).Row
udpegMappe
ræk = sidsteRække + 1
gennemløbAfAktuelleMappe
End Sub
Private Sub udpegMappe()
With Application.FileDialog(msoFileDialogOpen)
.Show
End With
aktuelleMappe = CurDir
End Sub
Private Sub gennemløbAfAktuelleMappe()
Dim fs, f, fil, fc
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFolder(aktuelleMappe)
Set fc = f.Files
Application.ScreenUpdating = False
For Each fil In fc
With fil
filNavn = .Name
filStørrelse = .Size
filType = .Type
sidstÆndret = Format(.DateLastModified, "dd-mm-yy")
End With
