19-10-25, 04:32 AM
بسم الله الرحمنالرحيم
السلام عليكم ورحمة الله و بركاته
الكود التالي توصلت له بعد تعب مع برنامج 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