‘给你代码部分,不懂的问!控件需要自己加!
PrivateSubForm_Click()OnErrorResumeNext'这句容错,更省事
FolName="C:\Myphoto\201205HK"
Setfso=CreateObject("Scripting.FileSystemObject")
IfDir(FolName,vbDirectory)<>""Then
fso.DeleteFolder(FolName),True'删除
EndIf
Setfso=Nothing
EndSub
PrivateSubCommand1_Click()
pa2=ForFolder(hwnd,"请选择目录")
IfRight(pa2,1)<>"\"Thenpa2=pa2+"\"
Text1.Text=pa2
EndSub
'模块部分
'=================模块说明
'浏览文件夹模块
'=========================
'浏览文件夹-----------------------------------------------------------------------------------------
PublicTypeBrowseInfo
hwndOwnerAsLong
pIDLRootAsLong
pszDisplayNameAsLong
lpszTitleAsLong
ulFlagsAsLong
lpfnCallbackAsLong
lParamAsLong
iImageAsLong
EndType
PublicConstBIF_RETURNONLYFSDIRS=1
PublicConstMAX_PATH=260
PublicDeclareSubCoTaskMemFreeLib"ole32.dll"(ByValhMemAsLong)
PublicDeclareFunctionlstrcatLib"kernel32"Alias"lstrcatA"(ByVallpString1AsString,ByVallpString2AsString)AsLong
PublicDeclareFunctionSHBrowseForFolderLib"shell32"(lpbiAsBrowseInfo)AsLong
PublicDeclareFunctionSHGetPathFromIDListLib"shell32"(ByValpidListAsLong,ByVallpBufferAsString)AsLong
PublicFunctionForFolder(hwndOwnerAsLong,sPromptAsString)AsString
'declarevariablestobeused
DimiNullAsInteger
DimlpIDListAsLong
DimlResultAsLong
DimsPathAsString
DimudtBIAsBrowseInfo
'initialisevariables
WithudtBI
.hwndOwner=hwndOwner
.lpszTitle=lstrcat(sPrompt,"")
.ulFlags=BIF_RETURNONLYFSDIRS
EndWith
'CallthebrowseforfolderAPI
lpIDList=SHBrowseForFolder(udtBI)
'gettheresultingstringpath
IflpIDListThen
sPath=String$(MAX_PATH,0)
lResult=SHGetPathFromIDList(lpIDList,sPath)
CallCoTaskMemFree(lpIDList)
iNull=InStr(sPath,vbNullChar)
IfiNullThensPath=Left$(sPath,iNull-1)
EndIf
'Ifcancelwaspressed,sPath=""
ForFolder=sPath
EndFunction
抱歉,我可能之前提问的时候没有说清楚,现在已经补充好了,因为我用的是VS,可能VB的部分语法不通用
抱歉,Vs真心帮不了你,但是很多地方和VB通用,你稍微改改就行了
VB仿WINDOWS 卸载程序获取已安装软件列表
ConstHKLM=&H80000002uninst="SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall"
SetoReg=GetObject("winmgmts:\\.\root\DEFAULT:StdRegProv")
oReg.EnumKeyHKLM,uninst,ks
ForEachkInks
IfLeft(k,2)<>"KB"Then
IfoReg.getStringValue(HKLM,uninst&"\"&k,"DisplayName",v)=0Then
Printv
EndIf
EndIf
Next
我安装了VB软件,可是卸载的时候卸不下来了,怎么办?
用优化大师里的智能卸载吧
很有用
如何删除并重装VB6.0?
删除并重装VB6.0步骤:
下载的软件怎么卸载不了?
你好,楼主,你可以从控制面板找到该软件卸载,或者你可以找到你安装的路径卸载就可以。你也可以使用第三方软件卸载,推荐你安装个腾讯电脑管家,在电脑管家有软件管理--软件卸载,找要卸载软件,一键卸载就可以了,并且你可以清理下系统垃圾和缓存注册表之类的,简单方便,希望能帮到你
如何用VB编写卸载程序
在所有kill执行完毕以后输出一个批处理文件,用途是删除卸载程序,在退出时调用它。
Private Sub Command1_Click()
Open App.Path + "\1.bat" For Binary As #1
Put #1, , "del " + App.EXEName + ".exe" & vbCrLf
Put #1, , "del 1.bat"
Close #1
End Sub
Private Sub Form_Unload(Cancel As Integer)
Shell App.Path + "\1.bat"
End Sub
VB在哪卸载?软件里找不到,烦死了,控制面板也没有,VB出了问题,文件打不开,只是想重下一下,怎么
能远程看下不?朋友。更多
怎么弄远程
上扣我二八一六五二五一二
加了
转载请注明出处51数据库 » vb怎么卸载软件下载 VB卸载指定软件怎么实现