Запуск команд командной строки из VBA

[snake-as]

Здравствуйте. Подскажите, пожалуйста, как запускать команды командной строки из под VBA. Очень надо. Заранее спасибо!

[EducatedFool]

Например, так:

Sub test1()
    Shell "ping 127.0.0.1", vbMaximizedFocus
End Sub

Sub test2()
    Shell "notepad", vbNormalFocus
End Sub

[snake-as]

Спасибо. Только это не то. Мне нужно именно команды ком. строки. Например, copy. Но я уже нашел, как сделать. Через щадницу, правда, короче, я записываю команду в батник, а потом через Shell запускаю его.

[snake-as]

А еще вопрос, как сделать отображение папок в заданной директории? Заранее спасибо.

[SAS888]

Не совсем понятно, что значит отображение. В каком виде?
Следующий код выводит в окно сообщений подпапки заданной директории (полный путь).

Sub DirSubFolders()

    On Error Resume Next
    Dim myPath As String, Msg As String, f, f1
    myPath = "D:\Temp" 'Подставьте требуемый путь к папке
    Set f = CreateObject("Scripting.FileSystemObject").GetFolder(myPath).SubFolders
    
'Для примера, выводим в окно сообщений Excel папки в директории myPath
    
    For Each f1 In f
        Msg = Msg & f1.Path & vbCrLf
    Next
    MsgBox Msg

End Sub

Не забудьте в Tools->References подключить библиотеку "Microsoft Scripting Runtime".

[snake-as]

Большое спасибо!!!

[slan]

Сообщение от snake-as

Спасибо. Только это не то. Мне нужно именно команды ком. строки. Например, copy. Но я уже нашел, как сделать. Через щадницу, правда, короче, я записываю команду в батник, а потом через Shell запускаю его.

попробуйте так : shell "cmd" & "ваша команда"

[Serge_Bliznykov]

попробуйте так : shell "cmd" & "ваша команда"

если сработает (что скорее всего!
то надо учесть, что это будет НЕ будет работать в Windows 9x ... :-) (знаю, знаю, Вы скажете: - "Ты ещё MS DOS вспомни, ископаемое..." ;-)))
но всё же... ;-)

[snake-as]

Попробуем, попробуем))))

[snake-as]

SAS888, спасибо тебе огромное, очень процедура помогла. Только, что странно, я не могу просмотреть содержание диска C:. Хоть мне это и не нужно, но все же..