LoadFiles=App.Path&IIf(Len(App.Path)>3,"\setting.ini","setting.ini")DimFilesTestAsBoolean'检验setting.ini文件是否存在IfDir(LoadFiles,vbHidden)=EmptyThenFilesTest=FalseElseFilesTest=TrueEndIfFilenum=FreeFile'提供一个尚未使用的文件号'读取密码文件，把文件的信息赋值给StrTarget变量Di