[VBA] Dosya Adı Değişen Txt Leri Isimlendirme.
#1
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



  Alıntı
Bu mesajı beğenenler:
#2
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"





  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):