dosya isimlerini değiştirmek

[medfad]

Selamlar
Ekteki form yardımıyla dosya isimlerinin başına istediğim kelimeyi yada karakteri ekletiyorum.Ancak daha sonra eklettiğim bu verileri başka bir veriyle değiştirmek istiyorum.(yeniden ilave ettirmek istemiyorum.).Yani ilave edeceğim yeni kelime uzunluğu kadar dosya isminden silip yerine yeni veriyi getirmesi gerekiyor. İlgilenen arkadaşlara şimdiden teşekkür ediyor ve kolaylıklar dileyorum.

 

[medfad]

Merhaba
üstadlarımızn yardımlarını bekliyorum.

 

[Levent Menteşoğlu]

Kodunuzu aşağıdaki ile değiştirerek deneyin.

[vb:1:7348568fd1]Private Sub CommandButton1_Click()
say = Len(TextBox2)
ChDir TextBox1.Text
dosya = Dir("*.*")
While dosya <> ""
On Error GoTo hata
If InStr(1, dosya, TextBox2.Value) >= 1 Then GoTo son
deg = Replace(dosya, Mid(dosya, 1, say), "")
Name TextBox1.Text & dosya As TextBox1.Text & TextBox2.Value & deg
son:
dosya = Dir
Wend
hata:
Unload Me
End Sub[/vb:1:7348568fd1]

 

[medfad]

Merhaba
Sn.leventm çok teşekkür ederim. akşam akşam iyi geldi. sonuç istediğim gibi.