方法一:
Dim objFso
Set objFso = CreateObject("Scripting.FileSystemObject")
方法二:
'工程->引用->Microsoft Scripting Runtime
'第二种相对简单些,但是有的时候,会提示 不能加载SCRRUN.dll,此时就只能用第一种了,我用第一种的时候,还提示 什么什么没注册 在 运行 那输入 regsvr32 scrrun.dll 注册一下即可正常使用了
'下面是一个删除文件的简单例子:
Dim Fso
Dim File1
Private Sub Command1_Click() '点击按钮则删除
Fso.DeleteFile (File1)
End Sub
Private Sub Form_Load()
Set Fso = CreateObject("scripting.filesystemobject")
Set File1 = Fso.GetFile("F:\web\123.rar")
'请保证文件存在 不然会报错
End Sub
摘自:网络整理
相关文章参考:
相关文章参考:
★VB取得TextBox、RichTextBox光标所在的行和列(支持汉字)
★VB取得TextBox、RichTextBox光标所在的行和列(支持汉字)
★VB根据窗体自动调整窗体内控件大小 注:实用,可以直接引用
★Visual Basic编程常见问题及解答(1)
★Visual Basic编程常见问题及解答(2)
★Visual Basic编程常见问题及解答(3)
★VisualBasic变量、常数和数据类型及过程概述
★VB6的后期绑定和前期绑定
★VB 计算自己程序段所用时间
★VB 获取路径名各部分 (获取文件路径,获取文件名,获取文件扩展名)自编
★VB 在浏览器中打开指定网址