View Code Snippet

Author: Bobby
Date Submitted: 12/28/2006
Category: File Manipulation
Compatibility: .NET
This code has been accessed 2995 times.

Task: This portion of the code looks inside a folder (you can include subfolders too) and changes a specified file extension to another one. This code display certain file properties used in VB2005

Declarations

Code

'if you want to change extension in a specified directory, replace the veriables Dim fileEntries As String() = Directory.GetFiles(tbBrowse.Text) ' Process the list of files found in the directory. Dim fileName, ConvTo, ConvFrom As String ConvTo = tbExt.Text ConvFrom = "." & tbCurExt.Text For Each fileName In fileEntries Dim ff As String = Path.GetExtension(System.Convert.ToString(fileName)) Dim File1 As String = Path.GetFullPath(System.Convert.ToString(fileName)) Dim File2 As String If ff = ConvFrom Then File2 = Path.ChangeExtension(File1, ConvTo) File.Copy(File1, File2) File.Delete(File1) End If Next fileName ' if you want VB to also search the subdirectories... Dim fileEntries As String() = Directory.GetFiles(tbBrowse.Text) ' Process the list of files found in the directory. Dim fileName, ConvTo, ConvFrom As String ConvTo = tbExt.Text ConvFrom = "." & tbCurExt.Text For Each fileName In fileEntries Dim ff As String = Path.GetExtension(System.Convert.ToString(fileName)) Dim File1 As String = Path.GetFullPath(System.Convert.ToString(fileName)) Dim File2 As String If ff = ConvFrom Then File2 = Path.ChangeExtension(File1, ConvTo) File.Copy(File1, File2) File.Delete(File1) End If Next fileName Dim subdirectoryEntries As String() = Directory.GetDirectories(tbBrowse.Text) '' Recurse into subdirectories of this directory. Dim subdirectory As String For Each subdirectory In subdirectoryEntries 'Dim Fold2 As String = Path.GetFullPath(System.Convert.ToString(subdirectory)) Dim fileEntries2 As String() = Directory.GetFiles(subdirectory) ' Process the list of files found in the directory. ConvTo = tbExt.Text ConvFrom = "." & tbCurExt.Text For Each fileName In fileEntries2 Dim ff As String = Path.GetExtension(System.Convert.ToString(fileName)) Dim File1 As String = Path.GetFullPath(System.Convert.ToString(fileName)) Dim File2 As String If ff = ConvFrom Then File2 = Path.ChangeExtension(File1, ConvTo) File.Copy(File1, File2) File.Delete(File1) End If Next fileName Next subdirectory