- Код: Выделить всё
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
Сейчас этот форум просматривают: AhrefsBot, Yandex-бот и гости: 52