表情
| 三、对于文件File对象的操作 通过FileSystemObject的GetFile方法可以建立一个指向磁盘上一个文件的File对象。下面的范例介绍了如何利用File对象获得文件的基本信息。 首先建立一个新的工程文件，加入SR库，在Form1中加入一个FileListBox控件和一个PictureBox控件，不要使二者重叠，然后在Form1中加入以下代码： Option Explicit Dim fsoSys As New Scripting.FileSystemObject Private Sub File1_Click() Dim fsoFile As File Dim astr＄ Dim sDateCreate On Error GoTo errfun ’获得File1中的文件名并据此建立一个File对象 Set fsoFile = fsoSys.GetFile(“c:\windows\" ＋ File1.List(File1.ListIndex)) |
正在阅读：使用VB中的SERIPTING RUNTIME LIBRARY使用VB中的SERIPTING RUNTIME LIBRARY
2004-02-14 09:34
出处：eNet学院
责任编辑：zwg
键盘也能翻页，试试“← →”键
