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

• drkbl őstag

  #1662

  #1661 mezis

  2012-02-28 22:00:58

  Új Válasz

  Ú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

  

  drkbl

  őstag

  #1661 mezis

  #1661 mezis

  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

  Sajnos a konzolablak ASCII valami, pl. magyar Windowson 852-es kibővített kódtábla, így a Unicode->nemzeti ASCII konverzió során bármi kerülhet a fájlnévbe.
  Segíthet, ha dir /s paranccsal kilistáztatod az adott könyvtárakat, és megnézed, mivé lesz a cirill karakter.
  Ha ott jónak tűnik, ideiglenesen cseréld le a rekurzív
  listFiles objSubFolder.path
  sort
  MsgBox objSubFolder.path
  sorra, és nézd meg, mi jelenik meg.

  Bónusz: nézd át a hibakezelést, és egy hibaüzenet megjelenítésével lépj át a problémás alkönyvtárakon

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