Çözüldü Combo daki dosya isimleri

[k0081]

Merhaba arkadaşlar;

C:\Deneme klasörü içinde *.dwg dosyaları mevcut. ( 1 den 5 e kadar diyelim..)

Combobox ta bunlar listelenmiş durumda.

yapmmak istediğim;

birlestirilmis= -cat c:\deneme\abc001.dwg -cat c:\deneme\abc002.dwg -cat c:\deneme\abc003.dwg -cat c:\deneme\abc004.dwg -cat c:\deneme\abc005.dwg -new c:\deneme\abcTumu.dwg

bu şekilde bir değişkene almak. Sırasıyla..

Yardımcı arkadaşa şimdiden Teşekkürler.

 

[veyselemre]

For i = 0 To ComboBox1.ListCount - 1
    birlestirilmis = birlestirilmis & "-cat c:\deneme\" & ComboBox1.List(i) & " "
Next i
birlestirilmis = birlestirilmis & "-new c:\deneme\abcTumu.dwg"

 

[k0081]

veyselemre

Hocam çok teşekkür ediyorum, Tamamdır. Elinize Sağlık. Tam istediğim gibi.

 

[Korhan Ayhan]

Dosya isimleriniz standart uzunlukta ise,

DosyaBirlesen = WorksheetFunction.Substitute("abc001.dwg", "001", "Birlesmis")


Standart değilse; (Dosya adındaki tüm sayılar silinir...)

Sub Test()
    DosyaBirlesen = "abc001.dwg"
    For X = 0 To 9
        DosyaBirlesen = Replace(DosyaBirlesen, X, "")
    Next
    DosyaBirlesen = Replace(DosyaBirlesen, ".dwg", "Birlesmis.dwg")
End Sub

 

[k0081]

Korhan Ayhan

Hocam çok teşekkür ediyorum. Makro soruları içinde; bir sorum daha var. Klasöre göre sürücü harfi bulmak.

Bu kodu çok iyi hatırlamıyorum ama sanırım siz göndermiştiniz . Bunda değişiklik yapabilirmiyiz ?

İlgili Soru Linki :

https://www.excel.web.tr/threads/klasoere-goere-sueruecue-harfi-coklu.178792/