Создание папки и файла используя переменную в строке адреса - VB

Узнай цену своей работы

Формулировка задачи:

Здравствуйте все! Подскажите как в VB6 создать папку, а в ней файл с использованием переменной, содержащей название файла. Код примерный :
и как далее открыть это и закрыть? Заранее благодарю за помощь

Решение задачи: «Создание папки и файла используя переменную в строке адреса»

textual
Листинг программы
  On Error Resume Next
  '
  Dim sFolder As String
  Dim sFileName As String
  Dim iFn As Integer
  Dim sPath As String
  Dim sTemp As String
  Dim iTemp As Integer
  Dim iI As Integer
  '
  sFolder = "TEST"        ' Èìÿ ГЇГ*ГЇГЄГЁ êîòîðóþ õîòèì ñîçäГ*ГІГј
  sFileName = "TEST.TEST" ' Èìÿ ГґГ*éëГ* êîòîðûé õîòèì ñîçäГ*ГІГј
  '
  sPath = App.Path        ' ГЏГ*ГЇГЄГ* ГЁГ§ êîòîðîé Г§Г*ГЇГіГ№ГҐГ*Г* ïðîãГ*
  '
  sTemp = sPath & "\" & sFolder
  MkDir sTemp
  'iTemp = Err
  If 75 = Err Then
    MsgBox "ГЂ ГҐГ±ГІГј çäåñü óæå ГІГ*ГЄГ*Гї ГЇГ*ГЇГЄГ*!"
  End If
  '
  iFn = FreeFile
  sTemp = sPath & "\" & sFolder & "\" & sFileName
  Open sTemp For Output As #iFn
  For iI = 1 To 100
    Print #iFn, "ГЊГ» ñîçäГ*ëè ГґГ*éë!"
  Next iI
  Close #iFn

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


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

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

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