VB中FSO的调用方法

方法一:

  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