Forum

Windows 7 Dosya İsm...
 
Bildirimler
Hepsini Temizle

Windows 7 Dosya İsmi Değiştirme

4 Yazılar
3 Üyeler
0 Likes
611 Görüntüleme
(@oguzhanbitlisli)
Gönderiler: 180
Reputable Member
Konu başlatıcı
 

Merhaba

 

    MK_11 9 22_184483.txt şeklinde bir dosya ismim var bu dosya ismini baştan ilk iki karakter ve dosya ismi sonundan da _ karaktere kadar olan kısmını alıp ısmını nasıl deıgtırebılırım

eskı dosya ısmı : MK_11 9 22_184483.txt

yeni dosya ısmı : MK_184483.txt

bu sekılde nasıl degıstırebılırım komut ıstemınde

 
Gönderildi : 21/09/2017 20:19

(@www-rizasahan-com)
Gönderiler: 18028
_
 

Merhaba,

Bu şekilde çok dosya olduğunu düşünüyorum. Yanıtı ona göre veriyorum.

https://www.advancedrenamer.com/

 

1984 doğumluyum. 4 yaşından bu yana İstanbul’da yaşıyorum. Sırası ile aşağıdaki okullarda eğitim gördüm. Paşaköy ilkokulu (1990-1995) Kartal Zekeriyya Güçer İlköğretim Okulu(1995-1998) Ümraniye Teknik ve Endüstri Meslek Lisesi Bilgisayar Bölümü(1998-2001) Kocaeli Üniversitesi Bilgisayar Programcılığı(2002-2004) Anadolu Ünv. İşletme Fakültesi(2006-2009) Lise yıllarından sonra bir bilgisayar firmasının teknik servisinde mesleğe merhaba dedim. Outsource olarak Citibank ytl ve bina taşınma projesinde yer alarak 8 ay görev yaptım. Bu görevden sonra şu an çalışmakta olduğum yerde bilgi işlem sorumlusu olarak göreve başladım ve 18 yıldır görevimin başındayım.

 
Gönderildi : 22/09/2017 13:07

(@marufarslan)
Gönderiler: 168
Reputable Member
 

http://www.sinanilyas.com/makale/13/dosya-adi-duzenleyici-v2.1.7.php  bu yazılımda başarılı,

 

"Dalgasız denizde, herkes kaptandır."

 
Gönderildi : 22/09/2017 14:13

(@oguzhanbitlisli)
Gönderiler: 180
Reputable Member
Konu başlatıcı
 

Merhaba,

Bu şekilde çok dosya olduğunu düşünüyorum. Yanıtı ona göre veriyorum.

https://www.advancedrenamer.com/

 

Rıza Hocam Merhaba

Aşağıdaki Kodlarla istediğimi yaptırabildim ancak dögüyü çalıştırırken eğer önceki değiştiği dosya isimlerinden yeni değiştireceği dosya ismi var ise hata lıyorum bunu nasıl aşabilirim

 

Option Explicit

Dim objFSO, objFolder, objFile, strNewName, strOldName, alacagim, mesaj
Dim strPath, strName, istemedigim, toplam_karakter

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder("D:\Masaustu\Dosya")
For Each objFile In objFolder.Files
' Check if file name ends with ".txt".
If (Right(LCase(objFile.Name), 4) = ".txt") Then

' Rename the file.
strOldName = objFile.Path
strPath = objFile.ParentFolder
strName = objFile.Name
toplam_karakter = Len(strName)
istemedigim = Len(Left(strName, InStrRev(strName, "_") - 1)) + 1
alacagim = toplam_karakter - istemedigim
mesaj = Right(strName, alacagim)
objFSO.MoveFile strOldName, mesaj

End If
Next

 
Gönderildi : 05/11/2017 20:36

Paylaş: