Hirdetés

  2. Fórumok
  3. Szoftverfejlesztés
  4. Visual Basic

Hirdetés

100 000 érv a ReGalaxy mellett: Vásárolj Galaxy Z Fold7 I Z Flip7 vagy Galaxy S25 szériás készüléket, és régi mobilod felújítását 100 000 Ft-ig mi álljuk!

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

  • #1660 mezis félisten
    Új Válasz #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