mozgotron все записи автора Private Sub Text1_KeyPress(KeyAscii As Integer) ' Процедура фильтрации символов, недопустимых в файловых именах
Select Case KeyAscii
Case 34, 42, 47, 58, 60, 62, 63, 92, 124
KeyAscii = 0
End Select
Text1.MaxLength = 256 - Len(File1.Path + "\") ' Ограничение количества символов для файлового имени
End Sub

В этом листинге:
File1 — указание на элемент управления FileListBox, в котором пользователь выбрал переименовываемый файл.
Text1 — указание на элемент управления TextBox, в который пользователь вводит новое имя файла перед переименованием.