kopiere end hvilken som helst fil uden at overskrive en anden

har du lidt kode, om den du har lavet. ?

noget i den stil..



'---------------------------- Form1 ----------------------------
Option Explicit

Private Sub Form_Load()
  Call KopierFile("C:\AUTOEXEC.BAT", "C:\AUTOEXEC.BAT")
End Sub

Public Sub KopierFile(ByVal strSrc As String, ByVal strDst As String)
Dim intDot As Integer
Dim intCount As Integer
Dim strPath As String
  If Len(Dir(strDst, 7)) Then
    strPath = strDst
    intDot = (InStrRev(strPath, ".") - 1)
    If intDot > -1 Then
      Do Until Dir(strDst, 7) = ""
        intCount = (intCount + 1)
        strDst = Left$(strPath, intDot) & intCount & _
                  Right$(strPath, (Len(strPath) - intDot))
      Loop
        Else
      Do Until Dir(strDst, 7) = ""
        intCount = (intCount + 1)
        strDst = (strPath & intCount)
      Loop
    End If
  End If
  Call FileCopy(strSrc, strDst)
End Sub
'---------------------------- Form1 ----------------------------

den du har her virker da også hvis ikke filen eksisterer,i det bibliotek du kopierer til, den får bare ikke et nummer.

Tjek om filen eksisterer i forvejen. Gør den det, kan du enten omdøbe den eller slette den. Derefter kopierer du.

Jeg ville bruge FSO, det synes jeg er det letteste at arbejde med

eller:

Public Function kopier (Source as String, Destination as String)
If len(Dir(Destination)) > 0 then 'filen findes allerede
  if msgbox("Filen findes allerede!" & vbnewline & "Overskriv?", vbquestion+vbyesno, "Overskriv?") = vbno then
    exit function
  endif
endif
filecopy Source, Destination
end function