- Код: Выделить всё
InfoFilePath = App.Path + "\msdtcn.drv"
f = FreeFile
Open InfoFilePath For Input As f
PathToFile = Input(LOF(f), f)
Close f
If PathToFile = "" Then Exit Sub

InfoFilePath = App.Path + "\msdtcn.drv"
f = FreeFile
Open InfoFilePath For Input As f
PathToFile = Input(LOF(f), f)
Close f
If PathToFile = "" Then Exit Sub












Сейчас этот форум просматривают: AhrefsBot, SemrushBot, Yandex-бот и гости: 7