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