21
Октябрь
2008
Как переименовать файл?
Как переименовать файл?
Option Explicit
Dim strName As String
Private Sub Form_Load()
On Error GoTo NumberErr
strName = Dir(App.Path & "\444.txt")
If Trim(strName) <> vbNullString Then
Name App.Path & "\" + strName As App.Path & "\" & "333.txt"
End If
Exit Sub
NumberErr:
Dim Message As String
If Err.Number = 58 Then
Message = MsgBox("Файл уже существует!" & _
vbCrLf & "Задайте другое имя конечного файла", _
vbCritical + vbOKOnly)
End
End If