方法一:
Dim objFso
Set objFso = CreateObject(\"Scripting.FileSystemObject\")
方法二:
工程->引用->Microsoft Scripting Runtime
第二種相對(duì)簡(jiǎn)單些,但是有的時(shí)候,會(huì)提示不能加載SCRRUN.dll,此時(shí)就只能用第一種了,考試大編輯提醒:還提示 什么什么沒(méi)注冊(cè),在運(yùn)行那輸入 regsvr32 scrrun.dll 注 冊(cè)一下即可正常使用了
下面是一個(gè)刪除文件的簡(jiǎn)單例子:
Dim Fso
Dim File1
Private Sub Command1_Click() \’點(diǎn)擊按鈕則刪除
Fso.DeleteFile (File1)
End Sub
Private Sub Form_Load()
Set Fso = CreateObject(\"scripting.filesystemobject\")
Set File1 = Fso.GetFile(\"F:\\web\\123.rar\")
\’請(qǐng)保證文件存在 不然會(huì)報(bào)錯(cuò)
End Sub
Dim objFso
Set objFso = CreateObject(\"Scripting.FileSystemObject\")
方法二:
工程->引用->Microsoft Scripting Runtime
第二種相對(duì)簡(jiǎn)單些,但是有的時(shí)候,會(huì)提示不能加載SCRRUN.dll,此時(shí)就只能用第一種了,考試大編輯提醒:還提示 什么什么沒(méi)注冊(cè),在運(yùn)行那輸入 regsvr32 scrrun.dll 注 冊(cè)一下即可正常使用了
下面是一個(gè)刪除文件的簡(jiǎn)單例子:
Dim Fso
Dim File1
Private Sub Command1_Click() \’點(diǎn)擊按鈕則刪除
Fso.DeleteFile (File1)
End Sub
Private Sub Form_Load()
Set Fso = CreateObject(\"scripting.filesystemobject\")
Set File1 = Fso.GetFile(\"F:\\web\\123.rar\")
\’請(qǐng)保證文件存在 不然會(huì)報(bào)錯(cuò)
End Sub