Skip to main content

AccessTr.neT


Uzantısı değişmeden dosyanın adını değiştirmek

Uzantısı değişmeden dosyanın adını değiştirmek

Çözüldü #1
Merhabalar 

Access formundan bir tuşla bilgisayarımızdaki seçtiğimiz bir dosyayı bir yerden bir yere kopyalarken
dosya uzantısı değişmeden sadece dosya adını değiştirebilmek mümkünmüdür acaba

ekteki örnekte her uzantı için ayrı ayrı yapabiliyorum
.rar deneme.rar (Dosya Boyutu: 84,79 KB | İndirme Sayısı: 3)
Son Düzenleme: 24/03/2015, 00:49, Düzenleyen: brsknm.
Cevapla
#2
Anladığım kadarıyla, formda solda bulunan 4 buton ile yapılan işlemi tek butonla yapmak istiyorsunuz.

Forma yeni buton ekleyip tıklandığında olayına aşağıdaki kodu yazarak deneyiniz.


Dim Kaynak, Hedef, Uzanti

Kaynak = GetOpenFile_CLT("C:\Users\%userprofile%\Desktop\", "Select file...")
Uzanti = right(Kaynak, Len(Kaynak) - InStrRev(Kaynak, "."))
Hedef = "D:\A\" & Me.prename & "." & Uzanti
If Kaynak = "" Then
Exit Sub
Else
FileCopy Kaynak, Hedef
MsgBox "The Attachment File Was Created Successfully"

Controls(Uzanti).Value = True
End If


Ayrıca, "GetOpenFile_CLT" kodu, 64 bit ofislerde çalışmıyor. Bunun yerine Access ve resim ekleme sıkıntısı konusundaki 11. mesajda bulunan kodu kullanın.
Cevapla
#3
Merhabalar elinize sağlık işime yaradı  süpersiniz , uyarınızı dikkate alıcam ve  tamamlanıncada uygulamayı bitmiş haliyle örnek olsun diye siteye koyabiliriz dimi

bir şey daha sorsam Kopyaladığım 5 adet dosya var diyelim bunların bir metin kutusunda link olucak yani sonradan bu dosyayı yeni yerinde basınca açılabilecek şekilde alt alta gözükmesi mümkünmü
Son Düzenleme: 24/03/2015, 13:18, Düzenleyen: brsknm.
Cevapla
#4
Konu, Cevaplanmış Sorular bölümüne taşınmıştır, farklı sorunuz var ise Site Kurallarına uygun yeni konu açınız

Site Kuralları:
1 b) Açtığınız konudaki sorun çözümlenmişse aynı konuya konu başlığındaki soru ile ilgisi olmayan farklı soru yazmayınız. Yeni konu açınız.
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da