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

• #1017 wwlaci csendes tag Gregorius #1014

  Új Válasz 2009-10-22 18:23:28 #1017

  Ú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

  

  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 Form1

  Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
  End Sub

  Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChanged

  End Sub
  End Class

  Public NotInheritable Class Directory
  Public Class RecursiveFileProcessor

  Public 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 subdirectory

  End 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