• Home
 · 
• Files/File Controls/Input/Output
 · 
• This portion of the code looks inside a folder (you can include subfolders too) and changes a speci

This portion of the code looks inside a folder (you can include subfolders too) and changes a speci

This portion of the code looks inside a folder (you can include subfolders too) and changes a specified file extension to another one. This

Rate This portion of the code looks inside a folder (you can include subfolders too) and changes a speci

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

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