Должно ли создавать папку???

[Ramzes]

Вот пишу так:

Код: Выделить всё

Open app.path & "\my dir\dir\file.txt" for output as #1
     print #1, text1.text
close #1



Должен ли этот код создать папки "My Dir" и "dir", если их не существует?
Если нет то как создать папку?

[A.A.Z.]

Нет, этот код только ошибку выдаст.
Вот API'шка:

Код: Выделить всё

Private Declare Function MakeSureDirectoryPathExists Lib "imagehlp.dll" (ByVal lpPath As String) As Long

[Tin]

ну если не хочешь с апишками баловаться - лови ошибку...
on error goto 1
2
*******твой код***********
exit sub
1 if err.Number=Какому-то номеру ошибки then
mkdir КАКАЯТА
goto 2
end if

[Ramzes]

Сори, не подумал что написал!!!,надо снача папку создавать:

Код: Выделить всё

Private Sub Command1_Click()
On Error GoTo errorfolder:
Dim fso
Set fso = CreateObject("Scripting.FileSystemObject")
     fso.CreateFolder "c:\new_folder\" & q
errorfolder:
If Err = 58 Then MsgBox "Папка уже существует", vbCritical
Exit Sub
End Sub



[Tin]

А ларчик просто открывался...

[Ramzes]

[Tarik]

Только зачем такой геморой

Dim fso
Set fso = CreateObject("Scripting.FileSystemObject")

, когда всё делается проще

Код: Выделить всё

dim fso as new filesystemobject


[Ramzes]

Моё сообщение - полный бред? Всё, что написано выше не имеет никакого смысла?

Главное что мой код работает!

[Keen]

А нельзя ли проще?

Вот так:

Код: Выделить всё

result$=dir("c:\mydirectory",vbdirectory)

А папку можно создать с помощью mkdir, разве нет? К чему FSO?

[Ramzes]

А нельзя ли проще?

Вот так:

Код: Выделить всё

result$=dir("c:\mydirectory",vbdirectory)

А папку можно создать с помощью mkdir, разве нет? К чему FSO?

Данный код не рабочий, или просто я что-то не так делаю???

[Keen]

А нельзя ли проще?

Вот так:

Код: Выделить всё

result$=dir("c:\mydirectory",vbdirectory)

А папку можно создать с помощью mkdir, разве нет? К чему FSO?

Данный код не рабочий, или просто я что-то не так делаю???

Честно говоря накатал на скорую руку, но по сути, должен возвращать имя папки, т.е. mydirectory или c:\mydirectory - не помню... Если не будет работать, убери второй параметр.

[Ramzes]

А нельзя ли проще?

Вот так:

Код: Выделить всё

result$=dir("c:\mydirectory",vbdirectory)

А папку можно создать с помощью mkdir, разве нет? К чему FSO?

Данный код не рабочий, или просто я что-то не так делаю???

Честно говоря накатал на скорую руку, но по сути, должен возвращать имя папки, т.е. mydirectory или c:\mydirectory - не помню... Если не будет работать, убери второй параметр.

Сначала проверь, потом пахай на форум. ДАНЫЙ КОД НЕ РАБОЧИЙ

[Tarik]

ДАННЫЙ КОД ОЧЕНЬ ДАЖЕ РАБОЧИЙ!
Если папка "c:\mydirectory" существует, то он возвращает строку "mydirectory", а если нет - пустую строку. А теперь о том, как этим можно пользоваться. Допустим, тебе надо сохранить файл 123.txt в папке "c:\blablabla". Ты не знаешь, есть ли такая папка. Тогда ты пишешь

Код: Выделить всё

dim result as string
result=dir("c:\blablabla", vbdirectory)


Потом анализируешь Result:

Код: Выделить всё

if Result = "" then ...


Если result - пустая строка, значит такой папки нет, и надо её создать.

Код: Выделить всё

if result = "" then mkdir("c:\blablabla")


После этого можешь спокойно писать код для сохранения. Более удобный вариант без переменной выглядит так

Код: Выделить всё

if dir("C:\blablabla", vbdirectory)="" then mkdir("c:\blablabla")
... [товй код]


[Keen]

ДАННЫЙ КОД ОЧЕНЬ ДАЖЕ РАБОЧИЙ!
Если папка "c:\mydirectory" существует, то он возвращает строку "mydirectory", а если нет - пустую строку. А теперь о том, как этим можно пользоваться. Допустим, тебе надо сохранить файл 123.txt в папке "c:\blablabla". Ты не знаешь, есть ли такая папка. Тогда ты пишешь

Код: Выделить всё

dim result as string
result=dir("c:\blablabla", vbdirectory)


Потом анализируешь Result:

Код: Выделить всё

if Result = "" then ...


Если result - пустая строка, значит такой папки нет, и надо её создать.

Код: Выделить всё

if result = "" then mkdir("c:\blablabla")


После этого можешь спокойно писать код для сохранения. Более удобный вариант без переменной выглядит так

Код: Выделить всё

if dir("C:\blablabla", vbdirectory)="" then mkdir("c:\blablabla")
... [товй код]


Так все-таки рабочий ! А на меня ругались по чем зря... Нехорошо, товарищи, нехорошо.

Код: Выделить всё

Public Function CheckDir(Path$) As Boolean
    If Not Dir(Path$, vbDirectory) = "" Then CheckDir = True
End Function


[Ramzes]

Sory