- Код: Выделить всё
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

Сейчас этот форум просматривают: Google-бот, Majestic-12 [Bot] и гости: 15