dim aa as stringaa =dir ("一个文件夹的路径\*.txt")do while aa<>""'打开这个"一个文件夹的路径\" & aa TXT文件，并读取aa =dir()loop
