-
FSO的集合是按什么排序的,怎么获取最新创建的文件夹名,即按时间排序我的文件夹下有很多子文件夹,我想获取它们名称并输出最近创建的文件夹...部分代码:Setfso=CreateObject("scripting.filesystemobject")Setf1=fso.getfolder(Text1.Text)'自己输路径的Setb=f1.SubFoldersForEachccInbs=s&cc.Names=s&zh123459876 时间:11-02 + 阅读全文
-
怎么在VB里面实现这种情况事件探查器跟踪出来是这样的。declare@P1intset@P1=180150000declare@P2intset@P2=8declare@P3intset@P3=1declare@P4intset@P4=1execsp_cursoropen@P1output,N'SELECTaa.cbegind_c,aa.mb,aa.md,aa.mccdzjs 时间:11-02 + 阅读全文
-
如何通过句柄取得当前对像是否为当前显示(激活)像红色框的的左边小图标是正常的,他表示正在显示而上一行的左边小图标是灰色的,他没有显示,怎么通过API得取得,下面代码是激活,我要的是“是否激活”PrivateConstTCM_FIRST=&H1300PrivateConstTCM_SETCURSEL=TCM_FIRST+12SendMessagelngHwnd,TCM_SETCURSEL,1,janly 时间:10-25 + 阅读全文
-
让LISTBOX中内容垂直居中。。PrivateDeclareFunctionSendMessageLib"user32"Alias"SendMessageA"(ByValhwndAsLong,ByValwMsgAsLong,ByValwParamAsLong,lParamAsAny)AsLongPrivateConstWM_USER=&H400PrivateCah2035 时间:10-02 + 阅读全文
-
请教:程序运行出错,提示“错误的文件名或代码”,请各位大侠指点文本文件,若干行,根据每行固定位置的字符分类,当字符不同时在指定目录下创建一个文本文件,字符相同打开指定目录添加。程序如下:PrivateSubCmdzhuaqu_Click()Dima$,m%,n%,b$,c$,d$,a1$,a2$'检测txt文件内有多少条记录 OpenTxtlujing.TextForInputAs#1 m=xawwy_yiye 时间:11-02 + 阅读全文
-
80004005 OraOLEDB 錯誤SetConnViewDB=WScript.CreateObject("ADODB.Connection")ConnViewDB.ConnectionTimeout=150ConnViewDB.CommandTimeout=300ConnViewDB.Open"Provider=OraOLEDB.Oracle;datasource=TEST;userid=eip;passhehuafu85536511 时间:11-02 + 阅读全文
-
VB设置IE代理服务器的代码,提示出错,不能是什么原因?'VB设置IE代理服务器 PrivateDeclareFunctioninternetsetoptionLib"wininet.dll"Alias"InternetSetOptionA"_ (ByValhinternetAsLong,ByValdwoptionAsLong,ByReflpbufferAsAny,ByVxuehf 时间:03-19 + 阅读全文