liangx85

2013年12月31日

读取文件对象

摘要： With Application.FileSearch .searchSubFolders = false .Filename = "*.txt" .lookIn = strFolder if .Excute() > 0 then for i = 1 to .FoundFiles.count .FoundFiles(i) ' 取得文件对象 next i end ifend With searchSubFolders False : 子文件夹文件不取得 True : 子文件夹一起取得 阅读全文

posted @ 2013-12-31 10:56 liangx85 阅读(167) 评论(0) 推荐(0) 编辑

文件对话框的实例

摘要： With Application.FileDialog(msoFileDialogopen) .AllowMultiselect = False .Filters.clear.Initiatdenanc = strfileif .show = true then .selectitems(1) ' 指定对象取得end ifend With msoFileDialogopen : 选择文件 msoFileDialogFolderPicker ：选择文件夹 阅读全文

posted @ 2013-12-31 10:49 liangx85 阅读(141) 评论(0) 推荐(0) 编辑

导航