Vb6: Omdøb filer i mappe

Prøv:

Name "C:\TEST\TEST1" As "C:\TEST\TEST3"
Name "C:\TEST\TEST2" As "C:\TEST\TEST4"

Et helt script:
Function FileExists(filename As String) As Integer
    On Error Resume Next
        x% = Len(Dir$(filename))
    If Err Or x% = 0 Then FileExists = False Else FileExists = True
End Function

Private Sub Command1_Click()
    If FileExists("C:\TEXT\TEXT1") = True Then
        Name "C:\TEXT\TEXT1" As "C:\TEXT\TEXT3"
        Name "C:\TEXT\TEXT2" As "C:\TEXT\TEXT4"
    Else
        Name "C:\TEXT\TEXT3" As "C:\TEXT\TEXT1"
        Name "C:\TEXT\TEXT4" As "C:\TEXT\TEXT2"
    End If
End Sub

Og det bliver gjort hvis der bliver trykket på knappen med navnet Command1

Fik du det til at virke?

Perfekt :-) Tak for hjælpen!