- sziku69: Fűzzük össze a szavakat :)
- Luck Dragon: Asszociációs játék. :)
- sh4d0w: Palpatine - A Terv
- weiss: Pant* rant
- N€T0X|N: SSD cserék
- bambano: Bambanő háza tája
- sh4d0w: Árnyékos sarok
- eBay-es kütyük kis pénzért
- Sub-ZeRo: Euro Truck Simulator 2 & American Truck Simulator 1 (esetleg 2 majd, ha lesz) :)
- D1Rect: Nagy "hülyétkapokazapróktól" topik
Új hozzászólás Aktív témák
-
ArchElf
addikt
Amennyiben a t1.eleres és t2.helye mező azonos adatait akarnád kiszűrni:
select * from t1 where eleres not in (select helye from t2)
Esetleg használhatsz joint is, de az egy kicsit bonyolultabb:
SELECT t1.*
FROM t1 LEFT JOIN t2 ON t1.eleres = t2.helye
WHERE t2.helye Is Null;AE
-
Gregorius
őstag
Ez már végigmegy hiba nélkül:
Public Sub FindFiles(path As String, pattern As String, result As Collection(Of String))
Try
For Each s As String In Directory.GetDirectories(path, pattern)
FindFiles(s, pattern, result)
Next
For Each s As String In Directory.GetFiles(path, pattern)
result.Add(s)
Next
Catch ex As UnauthorizedException
End Try
End Sub
Dim res As New Collection(Of String)
FindFiles("C:\", "*.avi", res)
For Each s As String In res
listBox1.Items.Add(s)
Next2. Csak arra hívod meg a fentit, amelyikre kell.
-
Új hozzászólás Aktív témák
● ha kódot szúrsz be, használd a PROGRAMKÓD formázási funkciót!
- Iszonyatos mennyiségű hulladékkal járhat a Windows 10 terméktámogatásának vége
- Nyaralás topik
- Soundbar, soundplate, hangprojektor
- Milyen asztali (teljes vagy fél-) gépet vegyek?
- Hegesztés topic
- Windows 10
- Házimozi haladó szinten
- Milyen TV-t vegyek?
- Házi barkács, gányolás, tákolás, megdöbbentő gépek!
- Nintendo 3DS és DS topic
- További aktív témák...
- Gigabyte B450M S2H + Ryzen 5 1400 kisebb-nagyobb hibával
- Nokia 105 4G (2023) charcoal, Nokia 110 4G (2023) midnight blue
- ASRock B550 PG Velocita + Ryzen 5 3600 + 32GB (4x8GB) DDR4 3600Mhz CL18
- Philips 58PUS8505 Smart LED Televízió,146 cm, 4K Ultra HD ,Android, Ambilight, HDR10+ KIJELZŐHIBÁSAN
- Canon EOS 250D kiegészítőkkel, táskával (CSAK 200 expoval !!! )
- BESZÁMÍTÁS! 1TB Kingston KC3000 NVMe SSD meghajtó garanciával hibátlan működéssel
- LG 27GS60QC-B - 27" Ívelt - 2560x1440 - 180Hz 1ms - AMD FreeSync - Bontatlan - 2 Év Gyári Garancia
- BESZÁMÍTÁS! 1TB Samsung 980 NVMe SSD meghajtó garanciával hibátlan működéssel
- BESZÁMÍTÁS! MSI B450 R5 5500 16GB DDR4 512GB SSD RTX 2060 Super 8GB SilentiumPC Signum SG1V TT 500W
- BESZÁMÍTÁS! Apple MacBook Pro 16 M4 Pro 24GB RAM 512GB SSD - garanciával hibátlan működéssel
Állásajánlatok
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest