Текстовые файлы

[vladimirr]

Народ, сравните 2 выражения.

Dim a As New FileSystemObject, file As TextStream
Dim sNameFile As String
Private Sub Command1_Click()
Set file = a.CreateTextFile(Dir1.Path + Text1.Text + ".txt")
file.Close
File1.Refresh
Dir1.Refresh
End Sub
и
Private Sub Command1_Click()
sNameFile= Dir1.Path + Text1.Text + ".txt"
Set file = a.CreateTextFile(sNameFile)
file.Close
File1.Refresh
Dir1.Refresh
End Sub
Цель – создание файла. Но при использовании первого кода файл создаётся не в папке, куда указано, а в папке на уровень выше, и к имени прибавляет имя папки (имя_папкиимя_файла). Почему так? Тот же пример, но при создании папки работает в любом варианте.

[SBJocker]

Ты забыл добавить слэш ("\") между именем файла и папкой, и вообще, нужно всегда проверять, путь к папке, т.к. некоторые функции возвращают его со слэшем на конце, а некоторые - нет. А корневая папка всегда его содержит в пути: "С:\"

[vladimirr]

Да, действительно, неувязочка…
Спасибо, брат.