我们可能会经常要将一个文件夹中的所有文件都遍历一遍，然后进行修改，下面就介绍用Dir函数实现遍历*.xlsx文件的方法
Dir 函数
返回一个 String，用以表示一个文件名、目录名或文件夹名称，它必须与指定的模式或文件属性、或磁盘卷标相匹配。
语法
Dir[(pathname[, attributes])]
第一个参数即是文件的地址，第一次引用的时候要标注，第二次用的时候就不必指出了，下面举个例子，遍历下面文件夹中的Excel2010文件，然后输出文件的名字~
批量遍历某类文件(*.xlsx)
- SubOpenAndClose()DimMyFileAsStringDimsAsStringDimcountAsIntegerMyFile=Dir("C:\Users\McDelfino\Desktop\2.JPL_SCAT_EXCEL全\&;&"*.xlsx")’读入文件夹中的第一个.xlsx文件count=count+1’记录文件的个数s=s&count&"、"&MyFileDoWhileMyFile<>""MyFile=Dir’第二次读入的时候不用写参数IfMyFile=""ThenExitDo’当MyFile为空的时候就说明已经遍历完了，这时退出Do，否则还要运行一遍EndIfcount=count+1IfcountMod2<>1Thens=s&vbTab&count&"、"&MyFileElses=s&vbCrLf&count&"、"&MyFileEndIfLoopDebug.PrintsEndSub
运行结果如下：
53、
遍历每个文件，并且修改文件，先将文件的名字存在数组中，然后通过数组遍历打开每个文件，修改，再关闭文件~
- SubOpenCloseArray()DimMyFileAsStringDimArr(100)AsStringDimcountAsIntegerMyFile=Dir("C:\Users\McDelfino\Desktop\2.JPL_SCAT_EXCEL全\&;&"*.xlsx")count=count+1Arr(count)=MyFileDoWhileMyFile<>""MyFile=DirIfMyFile=""ThenExitDoEndIfcount=count+1Arr(count)=MyFile’将文件的名字存在数组中LoopFori=1TocountWorkbooks.OpenFilename:="C:\Users\McDelfino\Desktop\2.JPL_SCAT_EXCEL全\&;&Arr(i)’循环打开Excel文件Cells(1,1)="alex_bn_lee"’修改打开文件的内容ActiveWorkbook.Closesavechanges=True’关闭打开的文件NextEndSub
要是想要修改每个工作簿的内容可以这样遍历一下，显示将文件夹中的工作簿的名字存到一个字符串数组中，然后在用For…Next语句遍历
批量遍历某个文件夹中的所有文件(*.*)
注意：遍历的时候，顺序完全是按照文件名的顺序排的，而不是按照文件夹中文件的顺序~
- Subdlkfjdl()DimMyFileAsStringDimcountAsIntegercount=1MyFile=Dir("C:\Users\McDelfino\Desktop\桌面\Excel\*.*")Debug.Print"1、"&MyFileDoWhileMyFile<>""count=count+1MyFile=DirIfMyFile=""ThenExitDoDebug.Printcount&"、"&MyFileLoopEndSub
批量建立TXT文件
批量建立，同时可以批量赋值到文本文件中~
- Subkdjfl()Fori=1To10Open"C:\Users\McDelfino\Desktop\练习\&;&Format(i,"00")&".txt"ForOutputAs#iPrint#i,iClose#iNextEndSub
GetFolder方法
返回一个和指定路径中文件夹相对应的 Folder 对象。应用于FileSystemObject对象~
遍历文件夹内的所有文件
- SubGetFiles()Dimfs,f,f1,fcSetfs=CreateObject("scripting.filesystemobject")Setf=fs.getfolder("F:\Desktop\2.wind_numerical_excello")Setfc=f.FilesForEachf1InfcDebug.Printf1Debug.Print"f1="&TypeName(f1)NextMsgBox"fs="&TypeName(fs)_&vbCrLf&"f="&TypeName(f)_&vbCrLf&"fc="&TypeName(fc)EndSub
fs = FileSystemObject对象：提供对计算机文件系统的访问。
f = Folder对象：提供对一个文件夹所有属性的访问。
fc = Files集合：在一个文件夹内的所有 File 对象的集合。
f1 = File对象：提供对文件所有属性的访问。
FileSystemObject对象及TextStream对象的方法举例：
- Subdjkflds()Dimfso,fd,fs,f,ft,sSetfso=CreateObject("Scripting.FileSystemObject")fso.MoveFile"F:\Desktop\1.xlsx","F:\Desktop\2.wind_numerical_excello\1.xlsx"’移动文件fso.MoveFolder"F:\Desktop\temp","F:\Desktop\2.wind_numerical_excello\temp"’移动文件夹MsgBoxfso.FileExists("F:\Desktop\1.xlsx")’判断文件是否存在，存在返回True，否则返回FalseMsgBoxfso.FolderExists("F:\Desktop\temp")’判断文件夹是否存在，存在返回True，否则返回FalseSetft=fso.OpenTextFile("F:\Desktop\1.txt",8,-2)’8打开一个文件并写到文件的尾部-2使用系统缺省打开文件’ft是TextStream对象，加快对文件的顺序访问ft.Write"HelloWorld"’Write方法，在一行上Fori=1To10ft.WriteLinei’WriteLien方法，另起一行Nextft.Close’Close方法，关闭文件fso.DeleteFolder"F:\Desktop\1"’删除一个文件夹，并且是不放在回收站里面的EndSub
Folder对象的属性和方法举例：
Size方法
- SubGetSize()Dimfso,fd,fs,fSetfso=CreateObject("Scripting.FileSystemObject")Setfd=fso.GetFolder("F:\Desktop\2.wind_numerical_excello")Setfs=fd.SubFoldersForEachfInfsDebug.Printf.Name,Format(f.Size/1024/1024,"#.##")&"M"NextEndSub
File对象的属性和方法举例：
属性和方法与Folder对象类似~
遍历文件夹中的子文件夹及文件
- Subgetfiles()Dimfso,folder,fds,fd,folder2,fs,fSetfso=CreateObject("Scripting.FileSystemObject")Setfolder1=fso.GetFolder("F:\Desktop\2.wind_numerical_excello")’获得文件夹Setfds=folder1.subfolders’子文件夹集合ForEachfdInfds’遍历子文件夹Debug.Printfd.NameSetfolder2=fd’获得文件夹2Setfs=folder2.Files’文件集合ForEachfInfs’遍历文件Debug.Printf.NameNextDebug.PrintNextEndSub
哪里有意志存在，哪里就会有出路。
