Dosya ismini değiştirmek...

[kursad]

Diskimde clipart adında bir klasör ve bu klasörün altında klasörler ve bunların da altında klasörler... ve en sonunda tüm bu klasörlerin altında EPS olduğunu bildiğim dosyalar var. Fakat hiçbirinin uzantısı yok...

Bu dosyaların tümüne .EPS uzantısı vermem gerekiyor..

Command satırından ş yöntemi uyguladım;

ren *.* *.eps

fakat sadece içinde bulunduğum klasördeki dosyaları değiştirdi.

dir komutundan esinlenerek sonunda bir /s parametresi koydum ama yemedi :)

şimdi tüm bu 30.000 küsür dosyaya .EPS uzantısını kolay yoldan nasıl verebilirim?

[fatihhayri]

uzantı varda mı görünmüyor yoksa

tools-->Folder Options--> View sekmesindeki
Advantage Setting: altındaki "Hide extensions for known file types" seçeneğine tıklayınca görünmüyor mu?

belki ondan kaynaklanıyordur.

Bu bir ihtimal tabi benim başımada gelmiştide:p

[kursad]

Hayır, dosyaların uzantıları yok...

[omerosmanoglu]

Aşağıdaki kodu degistir.vbs olarak kayıt edin ve çalıştırın. Belirtilen klasördeki ve onun alt klasöründeki TÜM DOSYALARIN uzantısı .EPS değil ise .EPS uzantısı koyuyor.

Ana klasörün altındaki klasörler için yapıyor ama onun altındaki klasörlerin içerisindeki dosyalar için yapmıyor. eğer böyle bir sorun varsa biraz daha bakarım.


Start

Function Start
yer = InputBox("Ana Klasor:" & vbCrLf & "d:\test şeklinde yazın." & vbCrLf &"aman yanlış yazmayın bu klasördeki ve onun altındaki klasördeki .EPS uzantısı olamayanlara .EPS ekleyecek.")
if (yer <> "") Then degistir(yer)
if yer = "" Then WScript.quit
Start
End Function

Function degistir(yer)
Set fso = CreateObject("Scripting.FileSystemObject")

Dim f, f1, fc, s,fk,f2,altklasor,altdosya

Set f = fso.GetFolder(yer)
Set fk = f.SubFolders
Set fc = f.Files

sayac=0
For Each f2 in fk
Set altklasor = fso.GetFolder(f2.path)
Set altdosya = altklasor.files

For Each f1 in altdosya
set add=fso.GetFile(f1.path)
if Ucase(right(f1.path,4)) = ".EPS" then
else
add.name=f1.name&".EPS"
sayac = sayac + 1
end if
Next

Next

msg = msgBox(f &" ve alt klasörlerindeki toplam "& sayac &" dosyaya uzantı eklendi.")

Set fso = Nothing
End Function

[kursad]

Teşekkür ederim omerosmanoglu, fakat neredeyse 3 alt klasörden sonra başlıyor dosyalar....

[omerosmanoglu]

"3 alt klasörden sonra dosyalar başlıyor."

4 .alt klasörün içerisinde dosya varmı,yada 2.alt klasörün.?

Asp ile tıklamalı hale çevirebilirim istersen yukarıdaki scripti. tıkladığın klasörün alt klasöründeki dosyaların uzantılarını değiştirir. (daha kolayıma geliyor.)

[omerosmanoglu]

Asp ile tıklamalı yaptım tıkladığın klasörün alt klasöründeki dosyaları değiştiriyor.

Alt klasörün...altındaki...altındaki klasörü kafada çözemedim onun için asp ile tıklamalı yaptım.


<%
degklasoru=Request.QueryString ("degklasoru")
if degklasoru = "" then
anaklasor = "c:\test"
else
anaklasor = degklasoru
end if

Dim fso,fsoana,fsoaltklasor,fsoaltdosya,ksay,altklasor ler,altdosyalar,dsay

Set fso = CreateObject("Scripting.FileSystemObject")
Set fsoana = fso.GetFolder(anaklasor)

Set fsoaltklasor = fsoana.SubFolders
Set fsoaltdosya = fsoana.Files

Response.Write "Ana Klasör..:<b>"& anaklasor &"</b><br>"
sayac = 0
For Each ksay in fsoaltklasor
Response.Write "...Alt Klasör:<a href=?degklasoru="& ksay.path &"><b>"& ksay.name &"</b></a> 'de ki dosyalara uzantılar eklenti.<br>"
Set altklasorler = fso.GetFolder(ksay.path)
Set altdosyalar = altklasorler.Files


'Response.Write "<b>Dosyalar<br></b>"
For Each dsay in altdosyalar
' Response.Write dsay.name &"<br>"
set add=fso.GetFile(dsay.path)
if Ucase(right(dsay.path,4)) = ".EPS" then
else
add.name=dsay.name&".EPS"
sayac = sayac + 1
end if
Next
Next

Response.Write "Toplam..:"& sayac &" dosya'ya uzantı eklendi."
%>

[kursad]

Teşekkürler kardeş...