读取文件夹名,参考实例如下:文件夹="C:\百度\" Set F = CreateObject("Scripting.FileSystemObject")If Not F.FolderExists(文件夹) ThenMsgBox "未检测到文件夹"End IfSet oF = F.GetFolder(文件夹)For Each a In oF.Files MSGBOX a.NAMENEXT