تغيير نام تعداد زيادي فايل

[ehsan-avr]

سلام دوستان
من به يه برنامه نياز داشتم كه باهاش بشه تعداد زيادي فايل رو به طور همزمان تغيير نام داد. نام اين فايل ها هم ميتونه از يك شروع بشه و همينطور ادامه داشته باشه
يعني اگه ما 100 تا فايل داشته باشيم ، اين برنامه فايل ها رو از يك تا 100 نامگذاي كنه.
ممنون ميشم اگه راهنمايي كنيد...

[mormorbaba]

اميدوارم كمكت كنه

[m_vb1386]

Dim file() As String
Private Sub Command1_Click() 'انتخاب فايل
List1.Clear
CommonDialog1.Flags = 524800
CommonDialog1.MaxFileSize = 32000
CommonDialog1.Filter = "Text (*.txt)|*.txt|"
CommonDialog1.ShowOpen
file = Split(Me.CommonDialog1.FileName, vbNullChar)
For i = 1 To UBound(file)
List1.AddItem i & " " & file(i)
Next
End Sub
Private Sub Command2_Click() 'كپي فايلهاي جديد
For i = 1 To UBound(file)
FileCopy file(0) & "\" & file(i), "c:\" & i & ".txt"
List1.AddItem file(i) & " " & "با موفقيت تغيير نام شد "
Next
End Sub


اين هم يك نمونه ديگه

[ehsan-avr]

دستتون درد نکنه کارم راه افتاد:لبخند: