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

• #1661 mezis félisten mezis #1660

  Új Válasz 2012-02-28 18:57:00 #1661

  Ú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

  

  mezis

  félisten

  válasz mezis #1660 üzenetére

  Bocs, most jöttem rá, hogy lehet programkódot is beilleszteni:

  Function listFiles(strFolder)
  
  If objFileSystem.FolderExists(strFolder) Then
  Set objFolder = objFileSystem.GetFolder(strFolder)
  For Each objFile In objFolder.Files
  
  objCsvFile.Write objFile.Name & ";" & objFolder.Path & vbNewLine
  
  Next
  For Each objSubFolder In objFolder.SubFolders
  
  listFiles objSubFolder.path
  
  Next
  Else
  MsgBox "A megadott " & strFolder & "mappa nem létezik !"
  End If
  End Function

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