Új hozzászólás Aktív témák

• #24540 Delila_1 veterán G@ben #24537

  Új Válasz 2014-12-10 08:34:17 #24540

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Delila_1

  veterán

  válasz G@ben #24537 üzenetére

  Másik megoldás a kilistázásra.
  J1-től beírod a listázandó mappák útvonalát. Pl. J1-be C:\Főmappa\,
  J2-be C:\Főmappa\Almappa1\, J3-be C:\Főmappa\Almappa1\Al-Almappa\, stb.

  Sub MappaLista()
  Dim utvonal As String, sor As Long, FN As String, sorMappa As Integer
  
  sor = 1: sorMappa = 1
  Do While Cells(sorMappa, 10) <> ""
  utvonal = Cells(sorMappa, 10)
  ChDir utvonal
  FN = Dir(utvonal)
  Do While FN <> ""
  Cells(sor, 1) = FN
  sor = sor + 1
  FN = Dir()
  Loop
  sorMappa = sorMappa + 1
  Loop
  End Sub

Új hozzászólás Aktív témák