Создание папки

[sergiksergik]

Подскажите как с помощью макроса создать папку в той же директории где и файл и также как в определенном месте...?

Спасибо...

[С.М.С]

Можно так:

MkDir "C:\Новороссийск"

[С.М.С]

А для той же директории:

Dim puteFileName As String
puteFileName = ThisWorkbook.Path
MkDir puteFileName & "\Новороссийск123"

[sergiksergik]

Спасибо.....

[The_Andrei]

Сообщение от С.М.С

А для той же директории:

Dim puteFileName As String
puteFileName = ThisWorkbook.Path
MkDir puteFileName & "\Новороссийск123"

Не подскажите код, который бы создавал папку , туда кидал файл, причем имя папки должно быть как имя у файла.

[EducatedFool]

код, который бы создавал папку

Где её создавать?

туда кидал файл

какой файл кидать? открытый или закрытый в данный момент?
кидать сам файл, или его копию?

Неужто нельзя сформулировать задачу подробнее?

Попробуйте этот код:

Sub test()
    ГлавнаяПапка = "c:\": On Error Resume Next
    MkDir ГлавнаяПапка & ThisWorkbook.Name
    ThisWorkbook.SaveCopyAs ГлавнаяПапка & ThisWorkbook.Name & "\" & ThisWorkbook.Name
End Sub

[The_Andrei]

Сообщение от EducatedFool

Где её создавать?

какой файл кидать? открытый или закрытый в данный момент?
кидать сам файл, или его копию?

Неужто нельзя сформулировать задачу подробнее?

Попробуйте этот код:

Sub test()
    ГлавнаяПапка = "c:\": On Error Resume Next
    MkDir ГлавнаяПапка & ThisWorkbook.Name
    ThisWorkbook.SaveCopyAs ГлавнаяПапка & ThisWorkbook.Name & "\" & ThisWorkbook.Name
End Sub

Подскажите пример макроса, который бы создавал папки с разными именами,
У меня есть макрос который создает документы с разными именами.
Принцип работы такой же, только нужно создавать не документы а папки. Имя папки берется из активного документ Word.