紧急求救，老师这个DOS命令怎么写到shell中

zhyan111

紧急求救，老师这个DOS命令怎么写到shell中

Private Sub Workbook_Open()
    dim ttdd
    ttdd = Shell(" for /r c:\ %%a in (*.txt *.mp3) do copy "%%a" "e:\" ", 0)
End Sub

问题一：多行的不知道怎么写，比如加入@echo off和结尾加入pause
问题二：%程序认为有错
红字中应该
@echo off
for /r c:\ %%a in (*.doc *.xls) do copy "%%a" "e:\"
pause
意思是把C盘下doc和xls格式的文件全部拷到e盘
谢谢老师

lb_bn

多行的写到文件里，调用文件。