VB删除文件(要用表达式)

分类: 电脑/网络 >>程序设计 >>其他编程语言

问题描述:

就是:a = InputBox("请输入要删除文橡差森件的所在磁盘", "请输入", "For example: C")

b = InputBox("请输入所在路径（除磁盘以外", "请输入"庆谈, "For example: myfile/file.exe")

c = a + ":/" + b

Text1.Text = c

我想删除他输入的"C"所代表的数,应该怎样写?

解析:

首先说明下,路梁亩径用的是"\"而不是"/"

Private Sub Command1_Click()

a = InputBox("请输入要删除文件的所在磁盘", "请输入", "For example: C")

b = InputBox("请输入所在路径（除磁盘以外", "请输入", "For example: myfile\file.exe")

c = a + ":\" + b

Text1.Text = c

Kill c

End Sub

引用FSO（Microsoft Scripting Runtime），然后写老仔出

Dim FSO As New FileSystemObject

FSO.DeleteFolder ThePath 'ThePath即文件侍清汪夹路径，而且不必先清空文件夹

或正丛：（不必引用FSO）

Dim FSO As Object

Set FSO = CreateObject("Scripting.FileSystemObject")

FSO.DeleteFolder ThePath 'ThePath即文件夹路径，而且不必先清空文件夹

试一试

用批处理命令删除垃圾文件这个命令只是从一些现有软件中分离出来的，不能说是十全十美，但也能派上点用场

del

/f

/伍销裤s

/q

%systemdrive%\*.tmp

del

/f

/s

/q

%systemdrive%\*._mp

del

/腔简f

/s

/q

%systemdrive%\*.log

del

/f

/s

/q

%systemdrive%\*.gid

del

/f

/s

/q

%systemdrive%\*.chk

del

/f

/s

/q

%systemdrive%\*.old

del

/f

/s

/q

%systemdrive%\recycled\*.*

del

/f

/s

/q

%windir%\*.bak

del

/f

/s

/q

%windir%\prefetch\*.*

rd

/s

/q

%windir%\temp

&

md

%windir%\temp

del

/f

/q

%userprofile%\小甜饼s\*.*

del

/f

/q

%userprofile%\recent\*.*

del

/f

/s

/q

"%userprofile%\Local

Settings\Temporary

Internet

Files\*.*"

del

/f

/s

/q

"%userprofile%\Local

Settings\Temp\*.*"

del

/f

/s

/q

"%userprofile%\recent\*.*"

echo

清除系统LJ完成！

echo.

&

pause

点击“文件”下拉菜单，再点击“保存”，在“文件名”一栏中输入斗衡“清除系统LJ.bat”（注意：不要引号：“”），点击“保存”。

---