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