本人菜鸟,请教VB代码使用问题

来源:百度知道 编辑:UC知道 时间:2024/06/13 23:41:58
@echo off
title @echo off
echo.
echo.
echo.
echo 开始清理垃圾文件,请稍等......
echo.
echo 正在清理Thumbs.db数据库文件,请稍等......
del c:\Thumbs.db /f/s/q/a
del d:\Thumbs.db /f/s/q/a
del e:\Thumbs.db /f/s/q/a
del f:\Thumbs.db /f/s/q/a
del g:\Thumbs.db /f/s/q/a
del h:\Thumbs.db /f/s/q/a
del i:\Thumbs.db /f/s/q/a
echo.
echo 清理Thumbs.db数据库完成!
echo.
echo 正在清理系统分区根目录下tmp文件,请稍等......
del /f /s /q %systemdrive%\*.tmp
echo.
echo 清理系统分区根目录下tmp文件完成!
echo.
echo 正在清理系统分区根目录下_mp文件,请稍等......
del /f /s /q %systemdrive%\*._mp
echo.
echo 清理系统分区根目录下_mp文件完成!
echo.
echo 正在清理系统分区根目录下日志文件,请稍等......
del /f /s /q %systemdrive%\*.log
echo.
echo 清理系统分区根目录下日志文件完成!
echo.
echo 正在清理系统分区根目录下gid文件,请稍等......
del /f /s /q %systemdrive%\*.gid
echo.
echo 清理系统分区根目录下gid文件完成!
echo.
echo 正在清理系统分区根目录下chk文件,请稍等......

用VB提供的一条命令就搞定了

Shell "cmd.exe /k del c:\test.bmp", vbHide
说明:使用shell调用外部命令cmd.exe隐藏执行,关于cmd.exe 后面的参数你应该看的懂。

TextBox 的VScrollBar
需要把MultiLine 设置为ture,再设置ScrollBars

用下面的方法 ,如果显示下一条提示时,不希望看到前面的提示,则把(text1.text &)去掉

text1.text=text1.text & "开始清理垃圾文件,请稍等...... " & vbCrLf
text1.text=text1.text & " 正在清理Thumbs.db数据库文件,请稍等. " & vbCrLf
Shell "cmd.exe /k del c:\Thumbs.db", vbHide '清理

text1.text=text1.text & “清理Thumbs.db数据库完成!" & vbCrLf

把你的 命令行命令 一条条 转换 成shell 调用的命令 写入程序,在该加提示的位置 用 text1.text 显示提示。如果你直接 调用 .bat 文件,还想用VB显示提示,是不可能的。

这是批处理的源文件,何必要编译成VB呢?

用记事本复制上这些代码后,另存为BAT文件就行了。双击后就可以自动处理了