hi gurus, i have this code from technet.
I know this is quite a noob question but please help me.
http://msdn.microsoft.com/en-us/library/07wt70x2.aspx?cs-save-lang=1&cs-lang=vb#code-snippet-2
' For Directory.GetFiles and Directory.GetDirectories ' For File.Exists, Directory.Exists Imports SystemImports System.IOImports System.CollectionsPublic Class RecursiveFileProcessorPublic Overloads Shared Sub Main(ByVal args() As String)Dim path As String For Each path In argsIf File.Exists(path) Then ' This path is a file. ProcessFile(path)Else If 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 pathEnd 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() = Directory.GetFiles(targetDirectory)' Process the list of files found in the directory. Dim fileName As String For Each fileName In fileEntries ProcessFile(fileName)Next fileNameDim subdirectoryEntries As String() = 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'ProcessFileEnd Class'RecursiveFileProcessor
so how do I use it in a form button?
i tried this in a button:
Dim xx As New RecursiveFileProcessor
MsgBox(xx("L:\"))
tried also:
RecursiveFileProcessor.Main.ProcessDirectory("L:\New")
tried all these codes above but there is always an error.
any input is greatly appreciated..
Thank you.
Every second counts..make use of it. Disclaimer: This posting is provided AS IS with no warranties or guarantees and confers no rights.