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

[Dinis124]

Версия AutoIt: 3.3.10.2

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


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

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

 

[alex33]

Реально так парни?

Конечно реально :D

 

[Dinis124]

Реально так парни?

Конечно реально :D

А, что? Тут флуди не хочу да? Главное сообщений наклепать?

 

[alex33]

А, что? Тут флуди не хочу да? Главное сообщений наклепать?

Поспокойнее, братан, не кипятись!

; глобальные переменные
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

 

[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]

Подправь своё сообщение где ; глобальные переменные и т.д. возьми их в тег [autoit]

Спойлер

А, что? Тут флуди не хочу да? Главное сообщений наклепать?

Поспокойнее, братан, не кипятись!

; глобальные переменные
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"

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