Создание папки и файла используя переменную в строке адреса - 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д