Klasörde Bulunan Dosyanın Başka İsimle Yenisini Açma

[alpay1]

Klasörde Bulunan Dosyanın Başka Ýsimle Yenisini Açma

Değeli dostlar.
Bir çalışma kitabındaki Form üzerinden TextBox'a yazacağım isim ile "C" de bulunan klasörde ki dosyanın aynısını yine aynı klasör içine kaydetsin ve Form üzerindeki ListBox ta listelesin.
Böyle bir makroya htiyacım var.Yardımcı olursanız sevinirim.
Ã?rnek dosyada daha geniş açıklama var.
Herkese iyi çalışmalar.

 

[F1]

Private Sub CommandButton1_Click()
FileCopy "c:\data\data.xls", "c:\data\" & TextBox1 & ".xls"
ListBox1.AddItem TextBox1.Text
End Sub

Private Sub ListBox1_Click()
Workbooks.Open "c:\data\" & ListBox1.Value
End Sub

 

[alpay1]

Sayın F1,
Yardımınız için teşekkürler.Kodlar gayet güzel çalıştı,elinize sağlık.

Buna ilaveten bir soru sormak istiyorum.Aslında bu soru burada vardı.Bu "xls" dosyaları ListBox ta listelenecek.Aşağıdaki kodlarla listeleme yapıyorum.Fakat listeleme yaparken örn. "Alanya.xls" şeklinde listeliyor.
Ben sadece "Alanya" olarak listelenmesini istiyorum.Yani "xls" olmayacak.Bu konuda da yardımcı olursanız sevinirim.
Teşekkürler.

ListBox1.Clear
ChDir "C:\Cari_v1"
Dosya = Dir("*.*")
While Dosya <> ""
ListBox1.AddItem Dosya
Dosya = Dir
Wend
ChDir "C:\"

 

[Levent Menteşoğlu]

Aşağıdaki gibi deneyin.

[vb:1:34d5279362]ListBox1.Clear
ChDir "C:\Cari_v1"
Dosya = Dir("*.*")
While Dosya <> ""
ListBox1.AddItem Mid(Dosya, 1, Len(Dosya) - 4)
Dosya = Dir
Wend
ChDir "C:\"
[/vb:1:34d5279362]