Aktív témák

• #26 Xpod addikt

  2010-05-12 10:30:39 #26

  Ö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

  Alakul. Még a kimenetet kellene formázni, mert jelenleg az első cellába a teljes elérési utat rakja be, így:
  _______________________________
  |c:\teszt\könyvtár1\alkönyvtár1\ | fájl1 |
  ------------------------------------------------------
  |c:\teszt\könyvtár1\alkönyvtár2\ | fájl1 |
  ------------------------------------------------------
  |c:\teszt\könyvtár2\alkönyvtár1\ | fájl1 |
  ------------------------------------------------------

  Ez még nem igazán jó. A c:\teszt rész pl nem kell. Hogy tudom azt megcsinálni, hogy a "\" legyen egy határoló és az így kapott mezők közül az első cellába rakja a 2. mezőt?

  Linux alatt van a cut parancs amivel ezt szépen meg lehet csinálni, de nekem windows alatt kell.

  Set objExcel = CreateObject("Excel.Application")
  objExcel.Visible = True
  objExcel.Workbooks.Add
  intRow = 2
  objExcel.Cells(1, 1).Value = "Folder"
  objExcel.Cells(1, 2).Value = "File Name"
  
  Set objFSO = CreateObject("Scripting.FileSystemObject")
  sfolder="\"
  
  ShowSubfolders objFSO.GetFolder(sfolder)
  Sub ShowSubFolders(Folder)
  For Each Subfolder in Folder.SubFolders
  objExcel.Cells(intRow, 1).Value = Subfolder.Path
  
  Set objFolder = objFSO.GetFolder(Subfolder.Path)
  Set colFiles = objFolder.Files
  For Each objFile in colFiles
  objExcel.Cells(intRow, 2).Value = objFile.Name
  intRow = intRow + 1
  Next
  ShowSubFolders Subfolder
  Next
  End Sub
  
  objExcel.Range("A1:B1").Select
  objExcel.Selection.Interior.ColorIndex = 19
  objExcel.Selection.Font.ColorIndex = 11
  objExcel.Selection.Font.Bold = True
  objExcel.Cells.EntireColumn.AutoFit
  
  MsgBox "Kész vagyok."

Aktív témák