- Kötelező BIOS frissítéssel orvosolná a Core CPU-k stabilitási gondját az Intel
- Milyen billentyűzetet vegyek?
- SSD kibeszélő
- AMD GPU-k jövője - amit tudni vélünk
- Kétventilátoros ASUS Radeon VGA-k az AMD-s felsőházban
- Milyen asztali médialejátszót?
- Mindenkinek elérhetővé teszi a képgenerálást a Lossless Scaling
- NVIDIA GeForce RTX 4060 / 4070 S/Ti/TiS (AD104/103)
- Milyen SSD-t vegyek?
- HiFi műszaki szemmel - sztereó hangrendszerek
Hirdetés
-
Bemutatta a DisplayHDR 1.2-t a VESA
ph Bővülnek és változnak a követelmények, illetve a hitelesítési teszt is fejlődik.
-
AMD Radeon undervolt/overclock
lo Minden egy hideg, téli estén kezdődött, mikor rájöttem, hogy már kicsit kevés az RTX2060...
-
MG5 menetpróba
ma Elektromos, kombi és most már elég jó áron van, de nem egy friss konstrukció. Vajon megéri?
Új hozzászólás Aktív témák
-
wwlaci
csendes tag
válasz Gregorius #1014 üzenetére
Szia!
találtam egy ilyen megoldást, de nem tudom, hogyan tudom
megjeleníteni ennek az eredményét listboxban.Imports System.Collections
Imports System.IO
Imports System
Public Class Form1Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End SubPrivate Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChanged
End Sub
End ClassPublic NotInheritable Class Directory
Public Class RecursiveFileProcessorPublic Overloads Shared Sub Main(ByVal args() As String)
Dim path As String
For Each path In args
If File.Exists(path) Then
' This path is a file.
ProcessFile(path)
Else
If System.IO.Directory.Exists(path) Then
' This path is a directory.
ProcessDirectory(path)
Else
Console.WriteLine("{0} is not a valid file or directory.", path)
End If
End If
Next path
End Sub 'Main' Process all files in the directory passed in, recurse on any directories
' that are found, and process the files they contain.
Public Shared Sub ProcessDirectory(ByVal targetDirectory As String)
Dim fileEntries As String() = System.IO.Directory.GetFiles(targetDirectory)
' Process the list of files found in the directory.
Dim fileName As String
For Each fileName In fileEntries
ProcessFile(fileName)Next fileName
Dim subdirectoryEntries As String() = System.IO.Directory.GetDirectories(targetDirectory)
' Recurse into subdirectories of this directory.
Dim subdirectory As String
For Each subdirectory In subdirectoryEntries
ProcessDirectory(subdirectory)
Next subdirectoryEnd Sub 'ProcessDirectory
' Insert logic for processing found files here.
Public Shared Sub ProcessFile(ByVal path As String)
Console.WriteLine("Processed file '{0}'.", path)
End Sub 'ProcessFile
End Class 'RecursiveFileProcessor
End Class
Ú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!
- Crypto Trade
- Okos Otthon / Smart Home
- A fociról könnyedén, egy baráti társaságban
- Kötelező BIOS frissítéssel orvosolná a Core CPU-k stabilitási gondját az Intel
- Milyen billentyűzetet vegyek?
- SSD kibeszélő
- AMD GPU-k jövője - amit tudni vélünk
- Konzolokról KULTURÁLT módon
- Kétventilátoros ASUS Radeon VGA-k az AMD-s felsőházban
- Milyen asztali médialejátszót?
- További aktív témák...
- nVidia RTX 3080 Ti 12GB Founders Edition + GARANCIA
- Dell Latitude 3310, 13,3" HD Kijelző, I5-8265U CPU, 8GB RAM, 256GB SSD, WIN 10/11
- GameBoy Advanced SP (AGS-001) + Final Fantasy V és némi ajándék.
- Samsung Galaxy TAB A8 /// Szinte ÚJ // Számla + GARANCIA
- Acer játékra is,15,6", FullHD,6.gen.core i7,GT940 4!!/6GB VGA,8GB Ram,SSD+HDD,jó akku
Állásajánlatok
Cég: Ozeki Kft.
Város: Debrecen
Cég: Promenade Publishing House Kft.
Város: Budapest