Listeden çıkarmak

[k0081]

Merhaba arkadaşlar;

If InStr(1, dosya, fs.GetExtensionName("*.dwg")) = 0 Then
fs.CopyFile dosya, yol1 & "\"
End If

bu kodda *.dwg uzantılı dosyaları, dosya değişkeninden çıkarıyoruz ve geriye diğer dosyalar kalıyor...

yapmak istediğim bunun tam tersi : *.dwg uzantılı dosyalar dosya değişkeninde kalsın, diğerleri çıkarılsın.. bunu nasıl yapabilirim ?

 

[Muzaffer Ali]

If InStr(1, dosya, fs.GetExtensionName("*.dwg")) [COLOR="Red"]>[/COLOR] 0 Then
fs.CopyFile dosya, yol1 & "\"
End If

 

[k0081]

dalgalikur;

Hocam dosya diğer bilgisayarda kaldı, o yüzden deneyemedim.. 2-3 saat sonra mesajı tekrar güncellerim.. teşekkürler cevap için.

***********************************************


Hocam tamamdır, elinize sağlık, çok teşekkürler..