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

• #24539 lappy őstag lappy #24538

  Új Válasz 2014-12-10 08:11:56 #24539

  Ú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

  

  lappy

  őstag

  válasz lappy #24538 üzenetére

  Dim iRow
  
  Sub ListFiles()
  iRow = 11
  Call ListMyFiles(Range("C7"), Range("C8"))
  End Sub
  
  Sub ListMyFiles(mySourcePath, IncludeSubfolders)
  Set MyObject = New Scripting.FileSystemObject
  Set mySource = MyObject.GetFolder(mySourcePath)
  On Error Resume Next
  For Each myFile In mySource.Files
  iCol = 2
  Cells(iRow, iCol).Value = myFile.Path
  iCol = iCol + 1
  Cells(iRow, iCol).Value = myFile.Name
  iCol = iCol + 1
  Cells(iRow, iCol).Value = myFile.Size
  iCol = iCol + 1
  Cells(iRow, iCol).Value = myFile.DateLastModified
  iRow = iRow + 1
  Next
  If IncludeSubfolders Then
  For Each mySubFolder In mySource.SubFolders
  Call ListMyFiles(mySubFolder.Path, True)
  Next
  End If
  End Sub
  Na ez már jó!!

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