Hirdetés
- Most tényleg 8 GB VRAM-mal szúrja ki szemünk az NVIDIA??
- AMD Ryzen 9 / 7 / 5 / 3 5***(X) "Zen 3" (AM4)
- Házimozi belépő szinten
- Apple MacBook
- Gaming notebook topik
- HiFi műszaki szemmel - sztereó hangrendszerek
- Milyen processzort vegyek?
- CES 2026: nagyra nőtt 120 Hz-en a Dell
- Fejhallgató erősítő és DAC topik
- Milyen billentyűzetet vegyek?
Új hozzászólás Aktív témák
-
drkbl
őstag
A "DOS-közeli" dolgok Unicode támogatását nem tudják megoldani, mert az a meglévő, régebbi programok működését lehetetlenné tenné (Nemzeti ASCII kódolás: 1 karakter 1 byte, Unicode: 1..4 byte).
Az újabb rendszerhívások már támogatják az Unicode kódolást, ráadásul a több nyelv egyidejű támogatását is.
Amit ajánlottam, az csak a nemzeti ASCII variálása lett volna.A legjobb megoldást választottad, hacsak nem fogod fel a helyzetet bíztatásnak egy modernebb programnyelv megtanulására
-
drkbl
őstag
A ? a gond, az ugye érvénytelen karakter a fájl/mappanévben. Unicode támogatás nem Unicode nyelvekhez XP+ rendszereken van, Vezérlőpult nyelvi beállítások (W7: Vezérlőpult>Óra,Nyelv és terület>Másik billentyűzet vagy beviteli módszer megadása>Felügyelet fül alsó része), de nem tudom, segítene-e.
Hibakezelés az On Error és Goto
-
drkbl
őstag
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
-
mezis
félisten
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 -
-
martonx
veterán
A VbScript nem objektum orientált. Vagy ez poén akart lenni? Mert a hsz-edről végig nem tudtam eldönteni, hogy ez most komoly, vagy poén volt.
Nem sértődtem meg, nem kell bocsánatot kérned.
Windowsban nem komplikált képernyőre adatokat kiíratni, vbscriptben mondhatjuk komplikálnak, mert egyszerűen nem erre készült, vagy aki mégis erre akarja használni, az cscript-tel futtatja
Ha meg dupla kattintással akarod használni, akkor .hta-ként csináld meg a vbscriptedet, és akkor ismét könnyű lesz az adatokat kiíratni. -
drkbl
őstag
Nem mindegy, melyik hosttal futtatod a vbscript-et, WScript-el vagy CScript-el!
Az echo eljárás doksija szerint wscript hosttal dialógusablak, cscript-el futtatva egy sort ad vissza a konzolablakba.
-
Új hozzászólás Aktív témák
Hirdetés
- Brogyi: CTEK akkumulátor töltő és másolatai
- Telekom mobilszolgáltatások
- Alaposan helyretette az AI ellenzőit az NVIDIA vezetője
- PlayStation 5
- Motorolaj, hajtóműolaj, hűtőfolyadék, adalékok és szűrők topikja
- Most tényleg 8 GB VRAM-mal szúrja ki szemünk az NVIDIA??
- AMD Ryzen 9 / 7 / 5 / 3 5***(X) "Zen 3" (AM4)
- Nintendo Switch 2
- Polgári repülőgép-szimulátorok
- Házimozi belépő szinten
- További aktív témák...
- ThinkPad P17 Gen1 17.3" FHD IPS i7-10850H RTX 3000 32GB 1TB NVMe ujjlolv IR kam új akku gar
- Lenovo ThinkPad T14 - i5-10310u
- AMD Ryzen 5 7500F - Új, 3 év garancia - Eladó!
- P16 Gen1 16" QHD+ IPS i7-12850HX RTX A2000 32GB 1TB NVMe ujjlolv IR kam gar
- ThinkPad P15 Gen1 15.6" FHD IPS i7-10750H T1000 32GB 512GB NVMe ujjlolv gar
- ÁRGARANCIA! Épített KomPhone Ultra 7 265KF 32/64GB RAM RTX 5070 Ti 16GB GAMER PC termékbeszámítással
- HIBÁTLAN iPhone 14 128GB Midnight -1 ÉV GARANCIA - Kártyafüggetlen, MS3527
- Hario MINI MILL SLIM PLUS tekerőt keresek, mert elveszett
- MacBook Pro 16" M1 Max 64GB / 2TB / 27%-os ÁFÁS
- REFURBISHED - DELL Thunderbolt Dock WD19TBS (210-AZBV)
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest
Cég: Laptopszaki Kft.
Város: Budapest