Dosya Adını değiştirme

[heft]

Merhaba
Sitedeki örnek kodlarla bir şeyler yaptım ama kopyaladığım dosya adını Texbox1 deki değerin olmasını istiyorum, bunu yapamadım.
Destek olabilir misiniz?


Dim DosyaAc As FileDialog
Set DosyaAc = Application.FileDialog(msoFileDialogFilePicker)
With DosyaAc
.AllowMultiSelect = False
.ButtonName = "Çizimi Yükle"
.InitialView = msoFileDialogViewList
.Title = "Resim Seçiniz!"
.InitialFileName = Environ("USERPROFILE") & "\Resim Seçiniz"
With .Filters
.Clear
.Add "Tüm Resimler", "*.jpg*"
End With
.FilterIndex = 1
.Show
End With
If DosyaAc.SelectedItems.Count > 0 Then
Dim secilen As String
secilen = DosyaAc.SelectedItems(1)
MsgBox secilen

Dim fso As Object
Set fso = CreateObject("Scripting.FileSystemObject")
fso.CopyFile secilen, "C:\den\"
End If

 

[Korhan Ayhan]

Kopyalama işlemini yapan satırı aşağıdaki gibi değiştirip deneyiniz.

TextBox1 nesnesinde "Deneme.jpg" gibi ifade olmalıdır. Uzantı yazmıyorsanız koda ekleme yapmalısınız.

fso.CopyFile secilen, "C:\den\" & TextBox1.Value

 

[Haluk]

Aslında FSO nesnesine de çok gerek yok, FileCopy komutu da bu işi yapar ....

.

 

[heft]

Çok teşekkürler