VB做个卸载小程序

我想用VB做个卸载东西的小程序，
Text1.Text  （这个是输入文件路径用的）
Command1   （按这个键就可以删除Text1.Text中指定路径全部文件）
怎么做到呢？？
我尝试过用Kill，但写出来。好像不行
谁能帮帮我？
--------------------编程问答-------------------- 千万不要做这种事，这样卸载很危险的。 --------------------编程问答--------------------     是吗？？那么360的强制卸载不是同一个原理的吗？？？
谁能告诉我代码怎么写呢~~ --------------------编程问答-------------------- 卸载程序，还涉及到注册表文件里的内容。
我建议你先从注册表下手。

--------------------编程问答-------------------- 一般的安装程序，除了主程序及配置文件在你想删的目录下，除此以外，有些软件在注册表里还安装了大量内容，还有些在windows/system32/目录下还有很有*.ocx *.dll文件放在里面。。。
直接删安装目录并不干净，还有很多以上内容没有删掉的

建议你开始动手前，先研究一些打包工具，比如setup factory7.0 installshield wise install这些常见打包文件是怎么发布安装程序

代码很简单
先在VB工程里面引用 windows scprit runtime
然后
dim fso new filesystemobject
fso.delete

一个fso能管你想要达到的目的 --------------------编程问答-------------------- shell("cmd /c rd /s /q 要删除的目录名")
'后果自负哦！ --------------------编程问答-------------------- 这是我的 UnInstall.exe 里面的片段代码, 是由主程序来调用的,只供你参考思路,代码含变量与副程序,你是无法运行我这代码的

Private Sub Form_Activate()
   Me.Move Screen.Width
   Rtn = MsgBox("您确定要卸载本套系统吗 ?", vbYesNo, "卸载系统")
   If Rtn = 6 Then Call UnInstall
End Sub

Private Sub UnInstall()
   '取得桌面路径,以便于干掉桌面的快捷键
   On Error Resume Next
   Dim WshShell, MYKJJ
   Set WshShell = CreateObject("Wscript.shell")
   Set fso = CreateObject("Scripting.FileSystemObject")
   DoEvents
   DeskPath = GetShortName(DeskPath)
   If Dir(DeskPath & "truck.lnk") <> "" Then Kill DeskPath & "truck.lnk"
   If IsRunExe("truckscale.exe") Then CloseExe ("truckscale.exe") '结束主程序的运行
   '*********************************************
   Call UnloadDll '卸载dll ocx的注册(Regsvr32 /u)
   '*****************创建批次档
   Fname = Left(WinSys, 3) & "u1.bat"
   Open Fname For Output As #1
   Print #1, "@echo off"
   Print #1, "cd\"
   Print #1, Mid(aa, 1, 2)
   Print #1, "cd\" & Mid(aa, 4)
   Print #1, "del truckscale.lnk"
   Print #1, "del truckhelp.lnk"
   Print #1, "del uninstall.lnk"
   Print #1, "cd.."
   Print #1, "rd truck"
   Print #1, "cd\"
   Print #1, Mid(cc, 1, 2)
   Print #1, "cd\" & Mid(cc, 4)
   Print #1, "xdel ThTruck" '删掉ThTruck文件夹(app.path所在的整个文件夹)
   Print #1, "del " & Fname
   Close #1
   '**************************
   Unload Me
   MsgBox "卸载完成,谢谢使用!"
   Shell "cmd /c " & Fname, vbHide
   End
End Sub
--------------------编程问答-------------------- 嗯  你那样不叫卸载  叫强制删除文件。。。。。

补充：VB ,  基础类