Private Sub mnuopen_Click() ’当点击菜单中的打开文件时执行 Dim filepath
as Sting Dim strLine As
String '在未选择文件时,text.text为空字符,,不显示任何内容 text1.text =
“” CommonDialog1.FileName =
"" '下面语句设置文件过滤方式,可显示扩展名为txt文件 CommonDialog1.Filter =
"(*.txt)|*.txt" '建立打开方式的通用对话框,也可使用commondialog1.showopen CommonDialog1.Action
= 1 filepath=CommonDialog1.FileName ‘得到选择的文件 Open filepath For
Input As #1 打开选择的文件 Do Until EOF(1) ‘显示打开的文件 Line Input #1,
strLine text1.Text = text1.Text + strLine + Chr(13) +
Chr(10) Loop Close #1 ‘关闭打开的文件 End
Sub
Dim fs, f, s Set fs =
CreateObject("scripting.FileSystemObject") Set f =
fs.GetFile(filespec) s = f.DateCreated MsgBox s
End
Sub 对于如何获得一个files集合，以及如何用For
Each……Next语句来访问这个集合中的每个file，我们可以参考下面的例子：
Sub ShowFolderList( folderspec ) ‘folderspec 为文件夹名称
Dim fs ,
f, f1,fc , s Set fs =
CreateObject(“Scripting.FileSystemObject”) Set f =
fs.GetFolder(folderspec) ‘得到folderspec文件夹相关的folder对象 Set fc = f.Files
‘得到folder对象所包含的文件夹的files集合 For Each fi in fc
‘访问folder集合中的每一个folder s= s & f1.name ‘格式化要显示的文本 s= s &
vbCrLf Next MsgBox s ‘用对话框显示信息
注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！ 本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网] 
