Rename file

Du bruger FileSystemObject til at gøre det med. Her følger et eksempel.

Private Sub Form_Load()
    Dim fso As FileSystemObject
    Set fso = New FileSystemObject
    fso.MoveFile \"c:\\temp.txt\", \"c:\\huj.txt\"
   
    Set fso = Nothing
End Sub


Du skal dog huske at sætte en reference til Microsoft Runtime Scripting.

Kedde

Det virker i vb5

Private Sub Command1_Click()
  OldName = \"C:\\File.txt\"
  NewName = \"C:\\File.new\"
    Name OldName As NewName
End Sub

Det er faktisk rigtigt det SJH skriver, det virker faktisk også i VB6. Dog vil jeg stadig sige at mit forslag er mere generelt, her kan man arbejde meget mere med filer.

Kedde

Du kan også bruge \"MoveFile\" (API)

Private Declare Function MoveFile Lib \"kernel32\" _
                Alias \"MoveFileA\" (ByVal _
                lpExistingFileName As String, ByVal _
                lpNewFileName As String) As Long

Private Sub Command1_Click()
Dim OldName As String
Dim NewName As String
Dim lRetVal As Long

OldName = \"C:\\File.txt\"
NewName = \"C:\\File.new\"

lRetVal = MoveFile(strSource, strTarget)
  If lRetVal = 0 Then
    MsgBox \"Error. File not moved!\"
  End If
End Sub

Jeg siger mange tak til jer begge.