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