Çok Teşekkür ederim ben C deki dosya ismi ile karşılaştırma yapıyormuşum sürekli D dosyanın varolup olmadıgını, bu çözüldü
Dim dosya, trh As String
trh = Date
dosya = Dir("d:\" + trh)
If dosya = "" Then
FileCopy Text1.Text, Text2.Text
MsgBox " Kopyalama İşlemi Gerçekleşti", vbInformation, "Tebrikler"
Else
MsgBox " Aynı Dosya Zaten Bulunmakta", vbInformation, "UYARI !!!"
End If
End Sub

1. ve 2. madde kaldı

1. maddede dosyayı kopyalarken yedeğin hangi gune ait oldugunu görmek için sistem tarihini veriyorum (date) burda bu şekilde kopyalama yaptıgımda dosyanın uzantısında sorun olurmu acaba

3. maddede ise kopyalam işlemi bittiginde kopyalanan konumu açmak istiyorum görmek için

tekrardan çok teşekkür ederim