Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Создание папок / 8 сообщений из 8, страница 1 из 1
29.07.2007, 19:23
    #34691246
Mazai-XZ
Mazai-XZ
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Создание папок
Подскажите, пожалуйста как программно создать папку, и сразу после этого создать вторую папку в ранее созданной папке? в смысле нужно следующее: есть диск С:\ создаём на нём папку А (получаем С:\А) потом в папке А создаём папку Б (должно получиться С:\А\Б) Папку А создать не проблема Dim fso As New FileSystemObject, fldr As Folder, s As String
FolN = InputBox("Создание новой папки", "Введите имя новой папки")
fso.CreateFolder (Dir2.Path & "\" & FolN)
Dir2.Refresh
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
29.07.2007, 19:26
    #34691247
Mazai-XZ
Mazai-XZ
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Создание папок
Подскажите, пожалуйста как программно создать папку, и сразу после этого создать вторую папку в ранее созданной папке? в смысле нужно следующее: есть диск С:\ создаём на нём папку А (получаем С:\А) потом в папке А создаём папку Б (должно получиться С:\А\Б) Папку А создать не проблема

Dim fso As New FileSystemObject, fldr As Folder, s As String
DirN = "Data"
fso.CreateFolder (App.Path & "\" & DirN)
End Sub

создаётся папка Data в папке с программой, а нужно чтоб в этой папке (Data) была создана ещё и папка "Files"
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
29.07.2007, 19:49
    #34691267
big-duke
big-duke
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Создание папок
Mazai-XZ нужно следующее: есть диск С:\ создаём на нём папку А (получаем С:\А) потом в папке А создаём папку Б (должно получиться С:\А\Б)

Mazai-XZ
Dim fso As New FileSystemObject, fldr As Folder, s As String
DirN = "Data"
fso.CreateFolder (App.Path & "\" & DirN)
End Sub
создаётся папка Data в папке с программой, а нужно чтоб в этой папке (Data) была создана ещё и папка "Files"
Так вам нужно в корне диска С создать папку, или в папке с программой ?
В любом случае в продолжение вашего кода
DirN = "Folder1"
fso.CreateFolder (App.Path & "\Data\" & DirN)
ну можно и покрасивее , но суть та же.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
30.07.2007, 09:43
    #34691640
gjghjc
gjghjc
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Создание папок
Код: plaintext
1.
mkdir "C:\A\"
mkdir "C:\A\B\"

С уважением, Николай.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
30.07.2007, 13:02
    #34692445
Mazai-XZ
Mazai-XZ
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Создание папок
В папке с программой, да и вообще в любом нужгом месте... просто принцип понять не могу (
Попробовал ВАШ метод, но к сожалению ругается на пусть, пишет Path not Found ...
Но всё-равно спасибо за участие )
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
30.07.2007, 13:05
    #34692461
Mazai-XZ
Mazai-XZ
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Создание папок
[quot gjghjc]
Код: plaintext
1.
mkdir "C:\A\"
mkdir "C:\A\B\"

ААААААААААА!!! Гениально!!! Пашет! )) блин, а я и не подозревал, что VB скушает досовские комманды ) Спасибо огромное!!! Буду мутить с App.Path
Огромное сасибо! )
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
30.07.2007, 13:12
    #34692491
big-duke
big-duke
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Создание папок
Код: plaintext
1.
2.
3.
4.
5.
Dim f As New FileSystemObject
Dim strDir1 As String, strDir2 As String
strDir1 = "dir1": strDir2 = "dir2"
f.CreateFolder App.Path & "\" & strDir1
f.CreateFolder App.Path & "\" & strDir1 & "\" & strDir2
В какой строке ошибка ?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
30.07.2007, 14:22
    #34692784
gjghjc
gjghjc
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Создание папок
ну так до кучи
http://vbnet.ru/vbguide/

С уважением, Николай.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Создание папок / 8 сообщений из 8, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 377ms
Закрыть
start [/forum/topic.php?fid=60&tablet=1&tid=2163670]:
 0ms
get settings:
 10ms
get forum list:
 16ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 40ms
get topic data:
 12ms
get forum data:
 3ms
get page messages:
 53ms
get tp. blocked users:
 1ms
others: 234ms
total:  377ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]