В текстовом поле прописать путь, по которому требуется сохранить файл - 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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

15   голосов , оценка 3.8 из 5
Похожие ответы