Что нового

[Автоматизация] Создать папку с вложенными подпапками

Dinis124

Новичок
Сообщения
4
Репутация
0
Версия AutoIt: 3.3.10.2

Описание:
Для windows7
Проверяем C:\Users\Пусть будет Гоша\Documents на наличие папки "Моя папка".
Если папка не найдена то создаем папку "Моя папка" с вложенными папками "Папка1" и "Папка2" и откроем каталог с папкой "Моя папка".
Если папка найдена выводим сообщение, и завершаем скрипт.


Реально так парни? Или прошу чуда.
Спасибо.

P\S С примерами игрался но, что то все не то и не так.
 

alex33

Скриптер
Сообщения
1 457
Репутация
184
Dinis124 сказал(а):
А, что? Тут флуди не хочу да? Главное сообщений наклепать?
Поспокойнее, братан, не кипятись!
Код:
; глобальные переменные
Global $sDocumentsDir = @MyDocumentsDir
;~ Global $sDocumentsDir = @UserProfileDir & "\Documents"
Global $sMyDir = $sDocumentsDir & "\Моя папка"

If Not FileExists($sMyDir & "\") Then; Если папка не найдена
    DirCreate($sMyDir)
    DirCreate($sMyDir & "\" & "Папка1")
    DirCreate($sMyDir & "\" & "Папка2")
    ; создаем папку "Моя папка" с вложенными папками "Папка1" и "Папка2"
    ; -
    ShellExecute($sMyDir); откроем каталог с папкой "Моя папка"
Else; Если папка найдена
    MsgBox(0, "Сообщение", "Папка существует. Путь к папке:" & @CRLF & $sMyDir)
    ; выводим сообщение
    Exit
    ; завершаем скрипт
EndIf
 
Автор
D

Dinis124

Новичок
Сообщения
4
Репутация
0
alex33 сказал(а):
Dinis124 сказал(а):
А, что? Тут флуди не хочу да? Главное сообщений наклепать?
Поспокойнее, братан, не кипятись!
Код:
; глобальные переменные
Global $sDocumentsDir = @MyDocumentsDir
;~ Global $sDocumentsDir = @UserProfileDir & "\Documents"
Global $sMyDir = $sDocumentsDir & "\Моя папка"

If Not FileExists($sMyDir & "\") Then; Если папка не найдена
    DirCreate($sMyDir)
    DirCreate($sMyDir & "\" & "Папка1")
    DirCreate($sMyDir & "\" & "Папка2")
    ; создаем папку "Моя папка" с вложенными папками "Папка1" и "Папка2"
    ; -
    ShellExecute($sMyDir); откроем каталог с папкой "Моя папка"
Else; Если папка найдена
    MsgBox(0, "Сообщение", "Папка существует. Путь к папке:" & @CRLF & $sMyDir)
    ; выводим сообщение
    Exit
    ; завершаем скрипт
EndIf
Код:
; глобальные переменные
Global $sDocumentsDir = @MyDocumentsDir
;~ Global $sDocumentsDir = @UserProfileDir & "\Documents"


Спасибо, тут то я и сел ровно.
 

alex33

Скриптер
Сообщения
1 457
Репутация
184
Подправь своё сообщение где ; глобальные переменные и т.д. возьми их в тег [autoit]
Dinis124 сказал(а):
alex33 сказал(а):
Dinis124 сказал(а):
А, что? Тут флуди не хочу да? Главное сообщений наклепать?
Поспокойнее, братан, не кипятись!
Код:
; глобальные переменные
Global $sDocumentsDir = @MyDocumentsDir
;~ Global $sDocumentsDir = @UserProfileDir & "\Documents"
Global $sMyDir = $sDocumentsDir & "\Моя папка"

If Not FileExists($sMyDir & "\") Then; Если папка не найдена
    DirCreate($sMyDir)
    DirCreate($sMyDir & "\" & "Папка1")
    DirCreate($sMyDir & "\" & "Папка2")
    ; создаем папку "Моя папка" с вложенными папками "Папка1" и "Папка2"
    ; -
    ShellExecute($sMyDir); откроем каталог с папкой "Моя папка"
Else; Если папка найдена
    MsgBox(0, "Сообщение", "Папка существует. Путь к папке:" & @CRLF & $sMyDir)
    ; выводим сообщение
    Exit
    ; завершаем скрипт
EndIf
; глобальные переменные
Global $sDocumentsDir = @MyDocumentsDir
;~ Global $sDocumentsDir = @UserProfileDir & "\Documents"

Спасибо, тут то я и сел ровно.
 
Верх