Ne znam da li postoji lakši način, ali je jedna mogućnost da ispitaš da li fajl već postoji pre nego što odradiš kopiranje i zavisno od toga prikažeš svoj dijalog za potvrdu. Rezultat dijaloga (šta je korisnik izabrao) koristiš da odrediš da li da se izvrši kopiranje ili ne.
Funkcija koja proverava da li fajl već postoji je dosta jednostavan i ja sam je preuzeo sa
http://word.tips.net/Pages/T00...ermining_if_a_File_Exists.html
Code:
Function FileThere(FileName As String) As Boolean
FileThere = (Dir(FileName) > "")
End Function
Sada to iskoristiš u svom kodu
Code:
Sub TestCopy()
Dim strSource As String, strDest As String
Dim Izbor As VbMsgBoxResult
strSource = "C:\Temp\Test1.zip" 'lokacija odakle se kopira fajl
strDest = "C:\Temp\Test2.zip" 'lokacija gde se kopira fajl
If FileThere(strDest) Then
Izbor = MsgBox("Fajl " & strDest & " vec postoji. Želite da ga obrišete?", vbOKCancel, "Potvrdi")
Else
Izbor = vbOK
End If
If Izbor = vbOK Then
FileCopy strSource, strDest
End If
End Sub
Nije to loše Rembrante, samo što ne bi dodao još malo boje?