Zip icindeki dosyanin adini degistirme

[taner3106]

Merhaba arkadaslar.
Dosya Yolu C:\X altinda ismi Y.zip olan slklstlrllmls dosyanin icindeki Z.abc ismindeki dosyanin adini Y.abc olarak makroyla nasil degistirebilirim. (Yaklasik 6.000 tane zip dosyasi oldugundan elle yapmak bir hayli zaman alacaktir.)
Simdiden cok tesekkür ediyorum vakit ayirabilecek arkadaslara.

-Winrar kullaniyorum eger önemliyse-

 

[Zeki Gürsoy]

Merhaba,

Zip dosyasını bir dizine açmadan "Shell.Application" ile yapılabilir. Bir kez kullanacaksınız Shell32.dll kitaplığını kullanmaya gerek yok. Şu adımları izlerseniz istediğiniz kolaylıkla olacaktır:

- Zip dosya içeriğini geçici bir klasöre çıkarın. Ör: C:\tmp\
- Aşağıdaki kodu isteğinize göre düzenleyin ve çalıştırın.

f = "C:\tmp\"
d = dir(f & "z.abc")
do while d <> ""
   name f & d as f & "y.abc"
   d = dir
loop

- Geçici klasörü tekrar zip' leyin. (C:\tmp\ klasörünü)

 

[taner3106]

Yanitin icin tesekkür ederim Zeki. Sanirim sorumu iyi soramadim.

-Dosya yolu "C:\X" olan bir klasörüm var.

-Bu klasör altinda yaklasik 6.000 tane zip dosyasi var. Isimleri diyelim ki Y1.zip, Y2.zip, Y3.zip ..... olsun.

-Bu zipli dosyalarin icinde sadece birer tane dosya slklstlrllmis. Bunun adi da Z.xls olsun.

Yapmaya calistigim Zipli dosyayi acmadan
Y1.zip icindeki Z1.xls dosyasinin adini Y1.xls
Y2.zip icindeki Z2.xls dosyasinin adini Y2.xls
Y3.zip icindeki Z3.xls dosyasinin adini Y3.xls
.
.
.
olarak degistirebilmek.