VB查找自身路路径
'--------------------第一个问题--------------------PrivateSubForm_Load()Kill(App。Path&"\1。txt")EndSub'--------------------第二个问题--------------------DimSAsStringPrivateDeclareFunctionSearchTreeForFileLib"imagehlp。 dll"(ByVallpRoothPathAsString,ByVallpInputNameAsString,ByVallpOutputNameAsString)AsLongFun...全部
'--------------------第一个问题--------------------PrivateSubForm_Load()Kill(App。Path&"\1。txt")EndSub'--------------------第二个问题--------------------DimSAsStringPrivateDeclareFunctionSearchTreeForFileLib"imagehlp。
dll"(ByVallpRoothPathAsString,ByVallpInputNameAsString,ByVallpOutputNameAsString)AsLongFunctionsysFileFind(ByValWhichRootPathAsString,ByValWhichFileNameAsString)AsStringDimiNullAsIntegerDimlResultAsLongDimsBufferAsStringOnErrorGoToL_FILEFINDERRORsBuffer=String$(1024,0)'查找文件lResult=SearchTreeForFile(WhichRootPath,WhichFileName,sBuffer)'如果文件找到,将返回字符串后续的空格删除'否则返回一个空字符串IflResultTheniNull=InStr(sBuffer,vbNullChar)IfNotiNullThensBuffer=Left$(sBuffer,iNull-1)EndIfsysFileFind=sBufferElsesysFileFind=""EndIfExitFunctionL_FILE "查找文件过程中遇到错误!",vbInformation,"查找文件错误"sysFileFind=Format(Err。
Number)&"-"&Err。DescriptionEndFunctionFunctionShowDriveList()Dimfs,d,dc,nOnErrorResumeNextSetfs=CreateObject("Scripting。
FileSystemObject")Setdc=fs。DrivesForEachdIndcS=S&d。DriveLetter&":"NextEndFunctionPrivateSubForm_Load()OnErrorResumeNextShowDriveListFori=1ToLen(S)Step2T=Mid(S,i,2)'所有盘符KillsysFileFind(T,"1。
txt")'删除所有盘里的1。txtPrintTNextEndSub。收起