Private Function renameByExt()
Try
Dim new_ext As String = Me.txtNewExt.Text.Trim
Dim i As Integer = 0
For i = 0 To no_of_files - 1
Dim f As New System.IO.FileInfo(listFiles(folder_path)(i))
Dim temp_filename As String = listFiles(folder_path)(i)
temp_filename = temp_filename.Substring(temp_filename.LastIndexOf("\") + 1)
temp_filename = temp_filename.Substring(0, temp_filename.LastIndexOf("."))
Dim j As New System.IO.FileInfo(folder_save + "\" + temp_filename + "." + new_ext)
If Not j.Exists Then
f.CopyTo(folder_save + "\" + temp_filename + "." + new_ext)
End If
Next
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Function
