|
|
|
|
|
Home
»
VB.NET
»
Show Folder contents and compare with another Folder
|
|
|
Author Rank:
|
|
Total page views :
14548
|
|
Total downloads :
220
|
|
|
|
|
Download
Files:
|
|
|
|
|
|
|
|
|
|
|
|
|
Similar ArticlesMost ReadTop RatedLatest
|
|
|
|
|
|
|
|
|
|
This application is going to display folder contents and also compares contents of two folders. I am using web application to display folder contents. By using this application, we can compare two folders easily. This application will display files not common to both folders.
First create a web application in VB.NET, name it as Folderviewer. Next import System.IO namespace. Next create UI as shown below. Here I used 4 listboxes, 2 textboxes, 1 button and some labels:
Next Button_click event and copy this code:
Try
ListBox1.Items.Clear()
Dim path As String = TextBox3.Text
For Each f As String In Directory.GetFiles(path)
Dim filename As String = f.Substring(f.LastIndexOf("\") + 1)
Dim fn_withoutextn As String = filename.Substring(0, filename.IndexOf("."))
ListBox1.Items.Add(fn_withoutextn.ToString)
Next
ListBox2.Items.Clear()
fillsecond()
showdiffA()
showdiffB()
Label5.Text = String.Empty
Catch ex As System.Exception
Label5.Text = (ex.Message).ToString
End Try
Definition for method fillsecond is:
Private Sub fillsecond()
For Each f As String In Directory.GetFiles(TextBox4.Text)
Dim filename As String = f.Substring(f.LastIndexOf("\") + 1)
Dim fn_withoutextn As String = filename.Substring(0, filename.IndexOf("."))
ListBox2.Items.Add(fn_withoutextn.ToString)
Next
End End Sub
Definition for method showdiffA is:
Private Sub showdiffA()
ListBox3.Items.Clear()
For Each f As String In Directory.GetFiles(TextBox3.Text)
If Not File.Exists(TextBox4.Text + f.Substring(f.LastIndexOf("\") + 1)) Then
Dim filename As String = f.Substring(f.LastIndexOf("\") + 1)
Dim fn_withoutextn As String = filename.Substring(0, filename.IndexOf("."))
ListBox3.Items.Add(fn_withoutextn)
End If
Next
Label3.Text = "Files not present in " + TextBox4.Text
End Sub
Definition for method showdiffB is:
Private Sub showdiffB()
ListBox4.Items.Clear()
For Each f As String In Directory.GetFiles(TextBox4.Text)
If Not File.Exists(TextBox3.Text + f.Substring(f.LastIndexOf("\") + 1)) Then
Dim filename As String = f.Substring(f.LastIndexOf("\") + 1)
Dim fn_withoutextn As String = filename.Substring(0, filename.IndexOf("."))
ListBox4.Items.Add(fn_withoutextn)
End If
Next
Label4.Text = "Files not present in " + TextBox3.Text
End Sub
Run the application, specify folder path in each TextBox, and click Show button.
It will display files not common to both folders as shown below:
NOTE: THIS ARTICLE IS CONVERTED FROM C# TO VB.NET USING A CONVERSION TOOL. ORIGINAL ARTICLE CAN BE FOUND ON C# CORNER (http://www.c-sharpcorner.com/).
|
|
|
Login
to add your contents and source code to this article
|
|
|
|
|
|
|
|
Sateesh Arveti
I hold Bachelors degree in Computer Science along with MCSD,MCTS and MVP for the year 2009. Areas of Interest: C#, WPF, WF, silverlight, ASP.NET, Oracle and SQL Server.
|
|
|
|
|
|
|
|
|
C# Consulting is founded in 2002 by the founders of C# Corner. Unlike a traditional
consulting company, our consultants are well-known experts in .NET and many of them
are MVPs, authors, and trainers. We specialize in Microsoft .NET development and
utilize Agile Development and Extreme Programming practices to provide fast pace
quick turnaround results. Our software development model is a mix of Agile Development,
traditional SDLC, and Waterfall models.
|
|
Click here to learn more about C# Consulting. |
|
|
|
|
|
|
|
Introducing MaxV - one click. infinite control. Hyper-V Hosting from MaximumASP.
Finally – a virtual platform that delivers next-generation Windows Server 2008 Hyper-V virtualization technology from a managed hosting partner you can truly depend on. Visit www.maximumasp.com/max for a FREE 30 day trial. Hurry offer ends soon.
Climb aboard the MaxV platform and take advantage of High Availability, Intelligent Monitoring, Recurrent Backups, and Scalability – with no hassle or hidden fees.
As a managed hosting partner focused solely on Microsoft technologies since 2000, MaximumASP is uniquely qualified to provide the superior support that our business is built on. Unparalleled expertise with Microsoft technologies lead to working directly with Microsoft as first to offer IIS 7 and SQL 2008 betas in a hosted environment; partnering in the Go Live Program for Hyper-V; and product co-launches built on WS 2008 with Hyper-V technology.
|
Dynamic PDF
ceTE software specializes in components for dynamic PDF generation and manipulation. The DynamicPDF™ product line allows you to dynamically generate PDF documents, merge PDF documents and new content to existing PDF documents from within your applications.
|
Go.NET
Build custom interactive diagrams, network, workflow editors, flowcharts, or software design tools. Includes many predefined kinds of nodes, links, and basic shapes. Supports layers, scrolling, zooming, selection, drag-and-drop, clipboard, in-place editing, tooltips, grids, printing, overview window, palette. 100% implemented in C# as a managed .NET Control. Document/View/Tool architecture with many properties&events. Optional automatic layout.
|
Dundas Software
Dundas Chart for .NET is the most advanced .NET charting package available today. With an extremely complete feature set, elegant architecture and easy implementation, Dundas Chart can quickly add advanced Charting functionality to enhance and transform ASP.NET and Windows Forms applications. Whether you are implementing charting into internal projects, or building applications for clients, Dundas Chart offers advanced technology and advanced results to get the most out of data.
|
60 FREE UI Controls from DevExpress
Register for your FREE copy on over 60 free presentation controls from
DevExpress - Absolutely Free-of-Charge without any royalties or distribution
costs. Visit Devexpress.com/60 today. Free controls include advanced lists box, dropdown calendar, rich text edit, spin
edit, tab control and so much more!
DevExpress engineers feature rich presentation controls and reporting tools for WinForms, ASP.NET, WPF, and Silverlight. Our technologies help you build your best, see complex software with greater clarity and deliver compelling business solutions for Windows and the web in the shortest possible time.
|
Clickatell's SMS Gateway
Clickatell's Developer Solutions allow you to SMS enable any website or
application via a range of API's. Learn More about our API connections.
|
Microsoft Visual Studio 2010
Visualize your workspace with new multiple monitor support, powerful Web development, new SharePoint support with tons of templates and Web parts, and more accurate targeting of any version of the .NET Framework. Get set to unleash your creativity.
|
Nevron Chart for .NET 2010.1 Now Available
The leading .NET charting control now features PDF, Flash and Silverlight export, visualization of large datasets and more. Deliver true charting functionality to your BI, Scorecard, Presentation or Scientific apps. Download evaluation now.
|
Developer-Ready ASP.NET 2.0 Web Hosting with 3 MONTHS FREE
Now supporting .NET 3.0 Framework with Windows Workflow Foundation, Windows Communication Foundation (WCF), Windows Presentation Foundation (WPF), windows CardSpace (WCS)! Providing more flexibility for Developers with Web Services Support and a User/Permission Manger. Also supporting MS SQL 2005/2000 with Real-Time Backups, FREE Automated Attach .MDF Tool, FREE SQL Restore and Shrink SQL DB Tools, and SQL
|
|
|
|
|
|
|
|
|
|
|
|
|