В текстовом поле прописать путь, по которому требуется сохранить файл - VB
Формулировка задачи:
Моё почтение всем форумчанам! вопрос такого характера, возможно ли реализовать такой маневр, кая видел в некоторых программах в настройках, в текстовом поле прописать путь по которому требуется сохранить файл! всем спасибо
Решение задачи: «В текстовом поле прописать путь, по которому требуется сохранить файл»
textual
Листинг программы
Option Explicit Const FileName = "\1.ini" Dim ff&, s$ Sub SaveIni(iniText$) ff = FreeFile Open (App.Path & FileName) For Output As #ff 'Открываем файл для записи Print #ff, iniText 'Сохраняем текст Close #ff 'Закрываем End Sub Function LoadIni() As String Dim b As Boolean On Error GoTo 1 ff = FreeFile Open (App.Path & FileName) For Input As #ff 'Открываем файл для чтения Do While Not EOF(ff) 'Читаем до конца Input #ff, s 'в переменную If b Then LoadIni = LoadIni & vbCrLf & s Else LoadIni = s: b = True Loop 1 Close #ff End Function Private Sub Form_Load() s = LoadIni If Len(s) Then MsgBox s End Sub Private Sub Form_Unload(Cancel As Integer) SaveIni "путь или чтото еще" End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д