| Вопрос: Как создать папку | Добавлено: 07.01.08 12:25 |
Автор вопроса:  KreAtoR
|
|
Подскажите как создать папку.
есть одна общая папка машин, а в ней создаются другие папки по фирме изготовителю, а в них в свою очередь по моделе. Auto-->Toyota-->Corolla -->Supra -->celica -->Fiat-->Marea -->Bravo и так далее, но только если пользователь заносит такую машину |
| Ответы | Всего ответов: 3 |
|
Номер ответа: 1 Автор ответа:  Arseny ICQ: 298826769 Вопросов: 53 Ответов: 1732 |
Профиль | | #1 | Добавлено: 07.01.08 13:09 |
F7 в Total Commander 
Свойство Add
objFolders.Add (FolderName) Создает новый подкаталог с заданным именем и добавляет его объект Folder в соответствующее семейство Folders Параметры objFolders Всегда задает объект Folders FolderName Обязательный аргумент - строка, определяющая имя новой папки. Аргумент должен содержать только имя папки без пути. Если папка с таким именем существует, то генерируется ошибка стадии выполнения 58:File already exists Пример ' Пример применения свойства Add Dim fso, f, fc Set fso = CreateObject("Scripting.FileSystemObject" 
Set f = fso.GetFolder("c:\"
Set fc = f.SubFolders fc.Add ("Русский_Проект"
|
||
|
Номер ответа: 2 Автор ответа:  Администратор ICQ: 278109632 Вопросов: 42 Ответов: 3949 |
Web-сайт: Профиль | | #2 | Добавлено: 07.01.08 19:56 |
|
MkDir "C:\test_folder"
|
||
|
Номер ответа: 3 Автор ответа: WinandВопросов: 87 Ответов: 2795 |
Web-сайт: Профиль | | #3 | Добавлено: 07.01.08 21:40 |
|
Private Declare Function CreateDirectory Lib "kernel32" Alias "CreateDirectoryA" (ByVal lpPathName As String, lpSecurityAttributes As SECURITY_ATTRIBUTES) As Long 'Создание папки
Private Type SECURITY_ATTRIBUTES nLength As Long lpSecurityDescriptor As Long bInheritHandle As Long End Type Public Declare Function PathFileExists Lib "shlwapi.dll" Alias "PathFileExistsA" (ByVal pszPath As String) As Long 'Существует ли файл / папка ' Создание пути Private Function CreateFolder(sPath As String) As Long Dim SecAttrib As SECURITY_ATTRIBUTES Dim iCounter As Integer Dim sTempDir As String If PathFileExists(sPath) = 1 Then CreateFolder = 1: Exit Function SecAttrib.lpSecurityDescriptor = &O0 '| SecAttrib SecAttrib.bInheritHandle = False '| SecAttrib.nLength = Len(SecAttrib) 'V If Right(sPath, 1) <> "\" Then sPath = sPath & "\" iCounter = 4 'Начать с 4-го символа строки, т.к. первые 3 - диск Do Until InStr(iCounter, sPath, "\" = 0
iCounter = InStr(iCounter, sPath, "\"
sTempDir = Left(sPath, iCounter) iCounter = iCounter + 1 CreateFolder = CreateDirectory(sTempDir, SecAttrib) 'Создание директории Loop End Function |
||
Страница: 1 |