ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Как создать новую папку?
13 сообщений из 13, страница 1 из 1
Как создать новую папку?
    #32681820
R
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
R
Гость
Не получается создать папку
В процедуре есть такая строка

...
MkDir "Test"
......

Что здесь не так написано?
Пробовал MkDir "C:\Test" - не помагает :(
Как правильно писать???
...
Рейтинг: 0 / 0
06.09.2004, 16:35:52
| Ответить | Цитировать | Написать  
Как создать новую папку?
    #32681958
leaf
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
leaf
Участник
есть досовская команда md c:\ww не поможет?
...
Рейтинг: 0 / 0
06.09.2004, 17:20:14
| Ответить | Цитировать | Написать  
Как создать новую папку?
    #32681974
leaf
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
leaf
Участник
можно еще попробывать кавычки убрать :))
...
Рейтинг: 0 / 0
06.09.2004, 17:25:51
| Ответить | Цитировать | Написать  
Как создать новую папку?
    #32681982
leaf
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
leaf
Участник
Syntax:

MKDIR (MD) [d:]path

Purpose: Creates a new subdirectory.


Discussion
If you do not specifically enter a path designation, the directory will be created as a subdirectory within the current directory.
There is no limit to the number of directories you can create. However, the maximum length of any single path specification is 63 characters, including backslashes.

For more information on MKDIR and other hard disk commands, see Chapter 3, Using Fixed Disks, in the downloadable book DOS the Easy Way .


Examples
To create the new subdirectory LETTERS within the existing directory NEWSALES on drive A, enter

md a:\newsales\letters

If you are already working in the NEWSALES directory, you can create the new subdirectory LETTERS within that directory by entering

md letters
...
Рейтинг: 0 / 0
06.09.2004, 17:27:23
| Ответить | Цитировать | Написать  
Как создать новую папку?
    #32682022
R
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
R
Гость
Вроде бы победил - написал в скобках.
Спасибо всем.
...
Рейтинг: 0 / 0
06.09.2004, 17:41:17
| Ответить | Цитировать | Написать  
Период между сообщениями больше года.
Как создать новую папку?
    #33604183
Фотография Jetus
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Jetus
Участник


Привет всем!

Та же проблема: как создать папку из макроса???


______________________________
Never Surrender - Nothing Impossible!
...
Рейтинг: 0 / 0
16.03.2006, 09:41:32
| Ответить | Цитировать | Написать  
Как создать новую папку?
    #33604281
Пользователь2
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Пользователь2
Гость
Код: plaintext
MkDir "D:\NewFolder"
...
Рейтинг: 0 / 0
16.03.2006, 10:14:31
| Ответить | Цитировать | Написать  
Как создать новую папку?
    #33604316
Фотография Jetus
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Jetus
Участник
Пользователь2
Код: plaintext
MkDir "D:\NewFolder"

Не создаёт!
...
Рейтинг: 0 / 0
16.03.2006, 10:25:20
| Ответить | Цитировать | Написать  
Как создать новую папку?
    #33604364
Пользователь2
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Пользователь2
Гость
Странно, у меня все нормально создает. Может у тебя стоит Касперский, который блокирует выполнение макросов?

Вот еще альтернативные варианты:

FSO:

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
    Dim fso As New Scripting.FileSystemObject
    Dim fol As Scripting.Folder
    Dim strFolder As String
    
    strFolder = "D:\NewFolder"
    
    If Not fso.FolderExists(strFolder) Then
        Set fol = fso.CreateFolder(strFolder)
    End If

WinAPI:

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
Type SECURITY_ATTRIBUTES
        nLength As Long
        lpSecurityDescriptor As Long
        bInheritHandle As Long
End Type

Declare Function CreateDirectory Lib "kernel32" Alias "CreateDirectoryA" ( _
  ByVal lpPathName As String, _
  lpSecurityAttributes As SECURITY_ATTRIBUTES) As Long


Sub Y()
    Dim typSecurity As SECURITY_ATTRIBUTES
    Dim lngRet As Long

    lngRet = CreateDirectory("D:\NewFolder", typSecurity)

    If lngRet =  0  Then
        MsgBox "Не удается создать директорию!"
    End If
End Sub
...
Рейтинг: 0 / 0
16.03.2006, 10:39:03
| Ответить | Цитировать | Написать  
Как создать новую папку?
    #33605315
Фотография Jetus
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Jetus
Участник
Пользователь2Странно, у меня все нормально создает. Может у тебя стоит Касперский, который блокирует выполнение макросов?

Касперский-то стоит, но вообще макросы работают, так что вроде как и эта команда должна выполнятся.

Вот еще альтернативные варианты:

Пользователь2FSO:

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
    Dim fso As New Scripting.FileSystemObject
    Dim fol As Scripting.Folder
    Dim strFolder As String
    
    strFolder = "D:\NewFolder"
    
    If Not fso.FolderExists(strFolder) Then
        Set fol = fso.CreateFolder(strFolder)
    End If


Говорит, что тип не определён. Может его как-то по другому описать нуно?

Пользователь2WinAPI:

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
Type SECURITY_ATTRIBUTES
        nLength As Long
        lpSecurityDescriptor As Long
        bInheritHandle As Long
End Type

Declare Function CreateDirectory Lib "kernel32" Alias "CreateDirectoryA" ( _
  ByVal lpPathName As String, _
  lpSecurityAttributes As SECURITY_ATTRIBUTES) As Long


Sub Y()
    Dim typSecurity As SECURITY_ATTRIBUTES
    Dim lngRet As Long

    lngRet = CreateDirectory("D:\NewFolder", typSecurity)

    If lngRet =  0  Then
        MsgBox "Не удается создать директорию!"
    End If
End Sub


Пишет: "Не удается создать директорию!" во всех случаях.
...
Рейтинг: 0 / 0
16.03.2006, 13:57:37
| Ответить | Цитировать | Написать  
Как создать новую папку?
    #33605373
Фотография talgat
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
talgat
Участник
А диск D не CD ?
...
Рейтинг: 0 / 0
16.03.2006, 14:08:45
| Ответить | Цитировать | Написать  
Как создать новую папку?
    #33605604
Фотография Jetus
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Jetus
Участник
talgatА диск D не CD ?
Точно не CD. Я уже и диск С пробовал, и Д и Е...
У меня Вынь98 и оффис 2000
...
Рейтинг: 0 / 0
16.03.2006, 14:59:47
| Ответить | Цитировать | Написать  
Как создать новую папку?
    #33605627
Пользователь2
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Пользователь2
Гость
Проверь, нет ли битых ссылок в Tools->References...
...
Рейтинг: 0 / 0
16.03.2006, 15:03:16
| Ответить | Цитировать | Написать  
13 сообщений из 13, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Как создать новую папку?
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=61&msg=32681820&tid=2185109]:
 0ms
get settings:
 6ms
get forum list:
 15ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 50ms
get topic data:
 10ms
get forum data:
 2ms
get page messages:
 55ms
get tp. blocked users:
 1ms
others: 194ms
total:  337ms
созд. / загр.: 337ms
x
x
Закрыть


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