Chr(0)) - 1) ''''*************************获得Cookies目录********************************** SHGetSpecialFolderLocation 0, COOKIES, pidl SHGetPathFromIDList pidl, sTmp txtCookies.Text = Left(sTmp, InStr(sTmp, Chr(0)) - 1) ''''*************************获得历史目录********************************** SHGetSpecialFolderLocation 0, HISTORY, pidl SHGetPathFromIDList pidl, sTmp txtHistory.Text = Left(sTmp, InStr(sTmp, Chr(0)) - 1) ''''***********************获得网页临时文件目录******************************* SHGetSpecialFolderLocation 0, PAGETMP, pidl SHGetPathFromIDList pidl, sTmp txtPageTmp.Text = Left(sTmp, InStr(sTmp, Chr(0)) - 1) ''''*************************获得ShellNew目录********************************* SHGetSpecialFolderLocation 0, SHELLNEW, pidl SHGetPathFromIDList pidl, sTmp txtShellNew.Text = Left(sTmp, InStr(sTmp, Chr(0)) - 1) ''''***********************获得Application Data目录***************************** SHGetSpecialFolderLocation 0, APPDATA, pidl SHGetPathFromIDList pidl, sTmp txtAppData.Text = Left(sTmp, InStr(sTmp, Chr(0)) - 1) ''''*************************获得PrintHood目录********************************* SHGetSpecialFolderLocation 0, PRINTHOOD, pidl SHGetPathFromIDList pidl, sTmp txtPrintHood.Text = Left(sTmp, InStr(sTmp, Chr(0)) - 1) End Sub
第一次发表东西,不妥之处还请大家见谅,希望能多和大家交流^_^ Email:xuhaoliang@21cn.com 主页:http://www.xygu.com QQ:3900168
上一页 [1] [2] |