Merhaba arkadaşlar,
Elimde bir source var calışma mantığı common dialog la oluyor. Ordan dosyayı seciyor ve 2 tane text ile de isim ve uzantısını değiştiriyor. Bunu ben şoyle yapmak istiyorum. Dosyayı otomatik secip ve otomatik isim ve uzantı değiştirmesini istiyorum. Yardımlarınızı bekliyorum...

Kod:
Private Sub Command1_Click() CommonDialog1.ShowOpen Text1 = CommonDialog1.FileName End Sub Private Sub Command2_Click() Name CommonDialog1.FileTitle As Text2 & "." & Text3 End Sub Private Sub Form_Load() Text1 = "" Text2 = "" Text3 = "" End Sub

__________________