- Код: Выделить всё
Set fso = CreateObject("Scripting.FileSystemObject")
st = Trim(tx.Text) ' Путь к файлу
Set fil = fso.GetFile(st)
MsgBox fil.Name
Переменную Fil здесь необходимо объявлять, если да, то как?

Set fso = CreateObject("Scripting.FileSystemObject")
st = Trim(tx.Text) ' Путь к файлу
Set fil = fso.GetFile(st)
MsgBox fil.Name

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 15