Forum
Bildirimler
Hepsini Temizle
Windows Client
4
Yazılar
3
Üyeler
0
Likes
613
Görüntüleme
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
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
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
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
