Access SQL   ›   ACCESS SORULARI VE ÖRNEK UYGULAMALARI   ›   ACCESS SORULARI   ›   [VBA] Dosya Adı Değişen Txt Leri Isimlendirme.

[VBA] Dosya Adı Değişen Txt Leri Isimlendirme.
hedefkaya
Kıdemli Üye 400-1000

*
Kayıt Tarihi: 26.03.2008
Toplam 223 konu açtı.
Toplam 538 yorum yaptı.
Toplam 39 puanı bulunmakta.
Mevcut Office Sürümü:
Office 2010 TR,
Beğeniler: 0 / 4
#1
20-08-2020, 15:39
merhaba
klasörde  stok***.txt  dosyalarım  var   başı STOK  fakat sonu değişiyor sürekli 

örneğin
STOK100.txt  
STOK200.txt
STOK300.txt
vb....


klasördeki bu dosyaların  adını 
YEDEK100.txt

YEDEK200.txt
YEDEK300.txt
vb....
olarak nasıl değiştirebilirim..
şimdiden yardımlarınız için teşekürler



  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
20-08-2020, 21:50
aşağıdaki kodu dener misiniz?
Visual Basic
  1. Dim DosyaAdi As String
  2. Dim KlasorAdi As String
  3. KlasorAdi = "klasör adresi " '"C:\Users\xx\Desktop\DirFunc\"
  4. DosyaAdi = Dir(KlasorAdi & "Stok*.txt")
  5.  
  6. Do While DosyaAdi <> ""
  7.     Name KlasorAdi & DosyaAdi As KlasorAdi &  Replace(DosyaAdi, "Stok", "Yedek")
  8.     DosyaAdi = Dir()
  9. Loop
  10. MsgBox "Bitti"





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


Benzer Konular...
Konu: Yazar Cevaplar: Gösterim: Son Mesaj
  Word Dot şaplonunu Açtırarak Dosya Göndermek Aplt 1 344 12-01-2025, 17:11
Son Mesaj: dsezgin
  Aktarım Yaparken Dosya Adını Değiştirme zimbit 4 507 04-02-2024, 00:42
Son Mesaj: zimbit
  [FORM] form klasör içinde dosya kontrolü obaysal42 4 2.523 29-12-2023, 10:24
Son Mesaj: burhanb
  [MAKRO] Bir Klasörde Bulunan Txt Leri Accesste Tabloya Eklemek Istiyorum. yasin273 3 542 06-12-2023, 17:27
Son Mesaj: dsezgin
  [VBA] Dosya Yolu Yazdırma benuva 2 528 26-11-2023, 19:06
Son Mesaj: benuva
  [VBA] Dosya Yolu Boş Ise Hata Alıyorum serdem48 4 478 26-10-2023, 14:11
Son Mesaj: serdem48
  Toplu .csv, .xlsx, .xls, .xml Dosya Aktarımı Yapmak adnnfrm 2 601 22-06-2023, 19:04
Son Mesaj: dsezgin
access-sql-18 Access.db , Yüksek Dosya Boyutu. BeyTor 9 867 13-05-2023, 22:43
Son Mesaj: BeyTor

Foruma Git:


Bu konuyu görüntüleyen kullanıcı(lar):