Aktív témák

• #21 Xpod addikt

  2010-05-11 22:02:13 #21

  Ö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

  

  Xpod

  addikt

  Üdv

  Egy kis segítséget szeretnék kérni a munkám egyszerűsítéséhez.
  Adott egy ilyen könyvtár struktúra:
  -könyvtár1
  ---alkönyvtár1
  -----------------file1
  -----------------file2
  ---alkönyvtár2
  -----------------file1
  -----------------file2
  -könyvtár2
  ---alkönyvtár1
  -----------------file1
  -----------------file2
  ---alkönyvtár2
  -----------------file1
  -----------------file2

  Ezt szeretném excelbe listázni, valahogy így:
  _______________________
  |könyvtár1 | alkönyvtár1 | file1 |
  ----------------------------------------
  |könyvtár1 | alkönyvtár1 | file2 |
  ----------------------------------------
  |könyvtár1 | alkönyvtár2 | file1 |
  ----------------------------------------
  |könyvtár1 | alkönyvtár2 | file2 |
  ----------------------------------------
  |könyvtár2 | alkönyvtár1 | file1 |
  ----------------------------------------
  |könyvtár2 | alkönyvtár1 | file2 |
  ----------------------------------------
  |könyvtár2 | alkönyvtár2 | file1 |
  ----------------------------------------
  |könyvtár2 | alkönyvtár2 | file2 |
  ----------------------------------------

  Nem tudok VBScriptben programozni, ezt a google-val vadásztam össze.
  A scriptben eddig jutottam, de ez még kevés, mert ez csak azokat a fileokat listázza ki, ami a "gyökér" könyvtárban vannak:

  Dim fso, objFolder, obFileList, folderpath, fullpath, i, objExcel 'változók
  folderpath = "\" 'forrás könyvtár
  Set fso = CreateObject("Scripting.FileSystemObject") 'ezt nem tudom mi
  Set objFolder = fso.GetFolder(folderpath) 'forrás könyvtár bekérése
  Set objSubfolder = objFolder.Subfolders 'alkönyvtárak az objSubfolderhez rendelése
  Set objFileLista = objFolder.Files 'forrás könyvtár fájljainak objFileList-hez rendelése
  
  ' Excel megnyitása
  Set objExcel = createobject("Excel.application")
  objexcel.Workbooks.add
  
  ' fejléc létrehozása
  i=1
  objexcel.Cells(1, 1).Value = "konyvtár" '1 első sor 1 cella megnevezése
  objexcel.Cells(1, 2).Value = "alkönyvtár" '1 első sor 2 cella megnevezése
  objexcel.Cells(1, 3).Value = "fájl neve" '1 első sor 3 cella megnevezése
  objexcel.Visible = True
  
  ' adatok feltöltése
  i=2
  For Each File In objFileLista
  fullpath = folderpath & "\" & file.name
  objexcel.Cells(i, 1).value = file.name 'i első sor 1 cella
  objexcel.Cells(i, 2).value = objSubfolder 'i első sor 2 cella
  objexcel.Cells(i, 3).value = objSubfolder 'i első sor 3 cella
  i = i + 1
  
  Next
  MsgBox "Kész vagyok."
  objExcel.DisplayAlerts = FALSE

  Hogy tudom a könyvtár és alkönyvtár neveket bepakolni a cellákba? Nekem csak az alkönyvtárak tartalmát kellene kilistázni, azt hogy tudom kiírni?

Aktív témák