Klasör içindeki .doc dosyasını Yeniden adlandır

[işsiz123]

Arkadaşlar merhabalar Aşağıdaki kodla Klasör içindeki word dosyalarını Listboxta sıralıyorum. Yapmak istediğim Userform üzerindeki "Yeniden Adlandır" buton yardımı ile Seçtiğim .doc dosyasının inputboxa yazılan ad ile değiştirmek istiyorum. Saygılarımla.

Private Sub UserForm_Initialize()
Dim ds, dc, f, s
Set ds = CreateObject("Scripting.FileSystemObject")
Set f = ds.GetFolder("G:\çalışmalar\yeni\WORD HAZIRLA\")
Set dc = f.Files
For Each dosya In dc
If InStr(1, ds.GetExtensionName(dosya), "doc", vbTextCompare) > 0 Then _
If InStr(1, ds.GetBaseName(dosya), "$", vbTextCompare) = 0 Then ListBox1.AddItem ds.GetBaseName(dosya)
Next
End Sub

 

[PLİNT]

Merhaba
Aşağıdaki gibi deneyin
"docx" için

[SIZE="2"]Private Sub [COLOR="Blue"]CommandButton1[/COLOR]_Click()
If IsNull(ListBox1.Value) = True Then MsgBox "SEÇİM YAPILMADI": Exit Sub
ad = InputBox("YENİ AD YAZINIZ")
If ad = False Or ad = "" Then MsgBox "İŞLEM YAPILAMADI": Exit Sub
yol = "G:\çalışmalar\yeni\WORD HAZIRLA\"
Name yol & ListBox1.Value & ".docx" As yol & ad & ".docx"
ListBox1.List(ListBox1.ListIndex, 0) = ad
End Sub[/SIZE]

 

[işsiz123]

Sayın PLİNT tamamdır Çok Teşekkür ederim