Access SQL   ›   ACCESS SORULARI VE ÖRNEK UYGULAMALARI   ›   ACCESS SORULARI   ›   [VBA] Kopyalanmış dosyanın uzantısı

[VBA] Kopyalanmış dosyanın uzantısı
İlhanYaylıcı
Aktif Üye 40-100

*
Kayıt Tarihi: 09.07.2010
Toplam 16 konu açtı.
Toplam 42 yorum yaptı.
Toplam 0 puanı bulunmakta.
Beğeniler: 0 / 0
#1
19-04-2019, 14:45 (En son düzenleme: 19-04-2019, 15:13 İlhanYaylıcı.)
Merhaba,

Access aracılığı ile dosyayı kopyalayarak, istediğim adrese gönderiyorum. Ama bu event'tan sonra dosya isminin değişmesi gerekiyor. Bunu da yapıyorum ama uzantısını da yok ediyor.

- Uzantıyı ayrıca nasıl kaydedebilirim?
- ( Yada ) Uzatıyı değiştirmeden dosya ismini nasıl değiştirebilirim?

Teşekkürler, iyi çalışmalar...



  Bul
  Alıntı
Bu mesajı beğenenler:
halily
Access Takımı

*
Kayıt Tarihi: 29.06.2014
Toplam 3 konu açtı.
Toplam 1.709 yorum yaptı.
Toplam 464 puanı bulunmakta.
Beğeniler: 13 / 108
#2
19-04-2019, 15:20
yeniDosyaAdi & Mid ( EskiDosyaAdi, InStrRev(EskiDosyaAdi ,"."))
kodunu dener misiniz?



  Bul
  Alıntı
Bu mesajı beğenenler:
halily
Access Takımı

*
Kayıt Tarihi: 29.06.2014
Toplam 3 konu açtı.
Toplam 1.709 yorum yaptı.
Toplam 464 puanı bulunmakta.
Beğeniler: 13 / 108
#3
19-04-2019, 15:22
uzantıyı kaydetmek için
txtuzanti=Mid ( EskiDosyaAdi, InStrRev(EskiDosyaAdi ,"."))



  Bul
  Alıntı
Bu mesajı beğenenler:
onur_can
Kıdemli Üye >1000

*
Kayıt Tarihi: 01.01.2009
Toplam 150 konu açtı.
Toplam 5.511 yorum yaptı.
Toplam 261 puanı bulunmakta.
Beğeniler: 10 / 76
#4
19-04-2019, 16:05
Şöyle bir altyordam kullanabilirsiniz. Uzantı grubu kaydedeceğiniz dosyanın uzantısıdır.

Visual Basic
  1. Sub DosyaUzantısıKaydet()
  2. Dim uzantıkonumunubul As Integer
  3. Dim uzantıgrubu As String
  4. Dim eskidosyaadı As String
  5.  
  6. eskidosyaadı = "deneme.xlsx"
  7. uzantıkonumunubul = Len(eskidosyaadı) - InStr(eskidosyaadı, ".")
  8. uzantıgrubu = Right(eskidosyaadı, uzantıkonumunubul)
  9. 'Kaydet
  10. '......
  11. '......
  12. End Sub





  Bul
  Alıntı
Bu mesajı beğenenler:
İlhanYaylıcı
Aktif Üye 40-100

*
Kayıt Tarihi: 09.07.2010
Toplam 16 konu açtı.
Toplam 42 yorum yaptı.
Toplam 0 puanı bulunmakta.
Beğeniler: 0 / 0
#5
19-04-2019, 16:30
Merhaba,

İlk önce cevaplarınız için çok teşekkür ederim.

yeniDosyaAdi & Mid ( EskiDosyaAdi, InStrRev(EskiDosyaAdi ,".")) - fonksyonunda "&"yu hata olarak belirliyor...



  Bul
  Alıntı
Bu mesajı beğenenler:
halily
Access Takımı

*
Kayıt Tarihi: 29.06.2014
Toplam 3 konu açtı.
Toplam 1.709 yorum yaptı.
Toplam 464 puanı bulunmakta.
Beğeniler: 13 / 108
#6
19-04-2019, 16:37 (En son düzenleme: 19-04-2019, 16:39 halily.)
kusura bakmayın o benim hatam fonksiyon tam olarak öyle yazılmıyor
yeniad=yeniDosyaAdi & Mid ( EskiDosyaAdi, InStrRev(EskiDosyaAdi ,"."))
biçiminde olacak
kullandığınız kodu tam olarak bilmediğim için ad değiştirme kodunun içine yazarsınız diye düşünmüştüm.



  Bul
  Alıntı
Bu mesajı beğenenler:


Benzer Konular...
Konu: Yazar Cevaplar: Gösterim: Son Mesaj
  Seçilen Dosyanın, Belirtilen Adrese (klasöre) Yüklenmesi tarkanaykın 2 681 19-10-2020, 15:48
Son Mesaj: tarkanaykın
  [VBA] Excelden veri alırken seç,len dosyanın açılması sorunu idrisy 2 1.350 26-10-2017, 22:16
Son Mesaj: idrisy
  [VBA] Uzantısı değişmeden sadece adını değiştirerek dosyayı kopyalama brsknm 1 1.729 24-03-2015, 16:33
Son Mesaj: aydın3838
  [VBA] accdb uzantısı mehmetdemir 2 2.210 02-01-2015, 18:19
Son Mesaj: onur_can
  EXCEL'E AKTARILAN DOSYANIN FORMATI MERAK 7 3.946 08-04-2010, 13:57
Son Mesaj: MERAK

Foruma Git:


Bu konuyu görüntüleyen kullanıcı(lar): 1 Ziyaretçi