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