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

• #1660 mezis félisten

  Új Válasz 2012-02-28 18:47:10 #1660

  Ú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

  Üdv.!

  Dupla kattintással remekül működik a VBS script programom, amely CD, DVD, vagy bármelyik alkönyvtár nyilvántartását írja ki egy .csv file-ba. Mindaddig, amíg nincs abban az alkönyvtárban egy cirill betűs file név (РадиоКот __ Радиометрический дозиметр GreenRay.mht).

  A hibaüzenet ez:

  

  Kivédhető ez valahogy ?

  (A vastagon kiemelt utasításba döglik bele.)

  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