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

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

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

                    Листинг программы
                
 papka= Combo1.List(3)    'какое нибудь слово
 file= Combo2.List(1)
 puth="D:\" & papka & "\" & file".txt"
 'или
 'putkfaily = "D:\coordinat\" & Combo1.List(m) & "\" & Combo2.List(k) & ".txt"

и как далее открыть это и закрыть? Заранее благодарю за помощь

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

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