Hej Hej Tack fungerar men jag la in så att man kan bläddra fram med dialogfönstret till den filen som man vill kopiera in, det fungerar men den gammla döps inte om, det beror på att jag inte vet/kan hur man skall göra för att programmet skall veta att om det ligger en fil där så skall den döpas om till testfil.old HejDöpa om filnamn och kopiera
Jag vill döpa om och kopiera en fil till en angiven plats och om det redan finns en fil där med samma namn så skall den döpas om t.ex fil.old innan nya filen fil.exe kopieras in.
Är det någon som har ett förslag om kod eller var man kan hitta
hjälp om det !!!!!
/tobbeSv: Döpa om filnamn och kopiera
Finns lite olika metoder , här är ett exempel du kan testa.
Option Explicit
Private Sub Command1_Click()
Dim FileNum As Long
FileNum = FreeFile
On Error Resume Next
Open "C:\TestFil.exe" For Input As #FileNum
If Err = 0 Then
Close #FileNum
FileCopy "C:\TestFil.exe", "C:\OldTestFil.exe"
Kill "C:\TestFil.exe"
End If
On Error GoTo 0
End Sub
mvh
SvenSv: Döpa om filnamn och kopiera
har ni något förslag!
Mvh
TobbeSv: Döpa om filnamn och kopiera
Du får ju tillverka en textvariabel som innehåller sökvägen.
Från din CommonDialog får du reda på hela sökvägen.
Ex . Sökväg = CmDialog.FileName Du kan ju också använda App.Path
FileCopy App.Path & "\TestFil.exe", App.Path & "\TestFil.old"
Kill App.Path & "\TestFil.exe"
Allt under förutsättning att alla filer skall ligga i samma mapp
som ditt projekt ligger i,om inte får man ta till andra trix med sökväg.
Man skall aldrig aldrig ! hårdkoda sökvägar.Tänk på det när
ni har DataKontroller och DatabaseName :-)
mvh
Sven