3个问题，在线求解... '高手请进，来者有分

Question

关于问题2
把C:\Temp下的*.aaa更改为*.bbb    Dim sMsgFile As String
    Dim sEmlFile As String
    Dim lMsgFile As Long
    
    ChDrive "C"
    ChDir "C:\Temp"
    Do
        sMsgFile = Dir("*.aaa")
        lMsgFile = Len(sMsgFile)
        If lMsgFile > 0 Then
            sEmlFile = Left(sMsgFile, lMsgFile - 3) & "bbb"
            Name sMsgFile As sEmlFile
        Else
            Exit Do
        End If
    Loop

Answer 1

前两个问题可以直接调用dos命令
shell("........")
1. shell("ren *.aaa *.bbb")
2. shell("echo y|del *.*")不过就是难看了点....

Answer 2

Q2:dim FileName,FilePath as stringFilePath="C:\"
FileName = Dir(FilePath, vbNormal)   ' 找寻第一项。
delete FileName
Do While FileName <> ""   ' 开始循环。
   FileName = Dir   ' 查找下一个一项。
   if FileName<>"" then delete FileName
Loop

Answer 3

楼上：应该是Kill FileName吧

Answer 4

to: ahocat() 对，是Kill （这分给定您了）to all:那问题3呢？？没人会吗？？
我是想让它执行完就在后台运行，然后连续执行Tab键，是个死循环

Answer 5

来迟来，我也很喜欢用SHELL，第三题用SENDKEY呀★★★★★
打工好辛苦
★★★★★
钞票好难赚
★★★★★
编程好伤神
★★★★★
光阴好易混
★★★★★

Answer 6

来迟来，我也很喜欢用SHELL
第三题用SENDKEY★★★★★
打工好辛苦
★★★★★
钞票好难赚
★★★★★
编程好伤神
★★★★★
光阴好易混
★★★★★

Answer 7

to : dgz01(打工者) 具体怎么用“SENDKEY”呢？？还有“SHELL”怎么用？
最好写上代码！小弟是初学者！请明示