إجراء تصحيح اسماء الصور ليتناسب مع برنامج ffmpeg

كود :

Sub repairimagesnames(imagespath As String)

     Dim i As Integer = 0

     Dim pics() As String = Directory.GetFiles(imagespath, "*.png")

     If pics.Count > 0 Then

         Dim c As Integer = pics.Count

         Dim d As Integer = Len(c.ToString())

         Dim strname As String = StrDup(d, "0")

         For i = 0 To c - 1

             On Error Resume Next

             Dim fn As String = pics(i)

             If Path.GetExtension(fn).ToString.ToLower = ".wav" Then Continue For

             Dim newname As String = i.ToString(strname) & ".png"

             My.Computer.FileSystem.RenameFile(fn, newname)

         Next

         MsgBox("تم تصحيح اسماء الصور", MsgBoxStyle.Exclamation, "")

     End If

 End Sub