Hirdetés
- Luck Dragon: Asszociációs játék. :)
- sziku69: Fűzzük össze a szavakat :)
- ldave: New Game Blitz - 2025
- Geri Bátyó: Agglegénykonyha 3 – Paradicsomos káposzta (amit amúgy utálok)
- D1Rect: Nagy "hülyétkapokazapróktól" topik
- Gurulunk, WAZE?!
- Elektromos rásegítésű kerékpárok
- gban: Ingyen kellene, de tegnapra
- ubyegon2: Airfryer XL XXL forrólevegős sütő gyakorlati tanácsok, ötletek, receptek
- GoodSpeed: Bye PET Palack, hello SodaStream
Új hozzászólás Aktív témák
-
Zalanius
tag
Excelben, VBA-val akarod ezt megoldani? Vagy valamilyen dotnetes nyelven inkább?
Ha előbbi, akkor nem igazán látom, mi akasztott meg, ha már a feladat lényege elkészült. A 2-es ponthoz segíthet például ez:
Option Base 1
Function GetFileNames(directoryPath As String) As String()
Dim namepathlist() As String
Dim fshelper As Object
Dim targetdir As Object
Dim filecnt%, i%
On Error Resume Next
Set fshelper = CreateObject("Scripting.FileSystemObject")
Set targetdir = fshelper.GetFolder(directoryPath)
filecnt = targetdir.Files.Count
If filecnt > 0 Then
ReDim namepathlist(filecnt, 2)
i = 1
For Each f In targetdir.Files
namepathlist(i, 1) = f.Name
namepathlist(i, 2) = f.path
i = i + 1
Next
End If
On Error GoTo 0
GetFileNames = namepathlist
End FunctionPersze nem biztos, hogy érdemes külön függvényt írni csak ezért, és akár a Dir() függvényre is rá lehet nézni, aztán amelyik egyszerűbb, azzal menni tovább.
Ami meg a 3. pontot illeti, ezt nem így csinálnám, de ennek csak praktikus okai vannak. Mielőtt az egész 50-es iteráció elindul, azelőtt kellene beolvasni változókba az összes előírt fájlnevet és jelszót, ezután jöhet a könyvtár aktuális tartalma, lásd fent, és végül egy olyan iteráció, ami az aktuális listán megy végig, és ha talál az adott példányhoz jelszót, akkor elvégzi a már kész lépéseket.
Új hozzászólás Aktív témák
- Synology NAS
- Samsung Galaxy S25 Edge - a tegnap határán
- Most Kína tiltotta ki a nemrég exportengedélyt kapott AI gyorsítókat?
- Autós kamerák
- Formula-1
- World of Tanks - MMO
- Milyen NAS-t vegyek?
- exHWSW - Értünk mindenhez IS
- Fejhallgató erősítő és DAC topik
- Kamionok, fuvarozás, logisztika topik
- További aktív témák...
- KÜLÖNLEGES RITKASÁG!!! VADIÚJ Surface Pro 12 12" Snapdragon X Plus 16GB 512GB LEVENDULA 686g
- Csúcskategóriás gamer fenevad: ASUS ROG Strix Scar G733QS (Ryzen 9, RTX 3080, 32gb ram/1tb ssd)
- Huawei Watch GT5 Pro 2027.04.15.-ig Garis!
- szinte új Apple Watch Ultra 2 GPS + Cellular 49 mm fekete titántok titán milánói szíj 1 év garancia
- újszerű Apple Watch Series 10 GPS 42mm kozmoszfekete alumíniumtok fekete Apple garancia
- GYÖNYÖRŰ iPhone 12 mini 128GB Black -1 ÉV GARANCIA - Kártyafüggetlen, MS3328, 94% Akkumulátor
- Telefon felvásárlás!! Samsung Galaxy A70/Samsung Galaxy A71/Samsung Galaxy A72
- iKing.Hu - Samsung Galaxy Tab S8 Graphite Használt, karcmentes állapotban
- AKCIÓ! Apple Mac Studio M1 MAX 2022 32GB 512GB számítógép garanciával, hibátlan működéssel
- HIBÁTLAN iPhone 12 Pro Max 128GB Blue -1 ÉV GARANCIA - Kártyafüggetlen, MS3109
Állásajánlatok
Cég: CAMERA-PRO Hungary Kft.
Város: Budapest