VisualStudio的专业版可使开发人员充分利用MicrosoftWindows操作系统和Web开发功能可你打开D盘看看，是这样的吗？都是“本地磁盘(D:)”

randomize setfso=createobject("scripting.filesystemobject") seta=createobject("scripting.dictionary") setfile=fso.opentextfile("a.txt") dowhilefile.atendofstream<>true m=m+1 a.addm,file.readline loop file.close h=int(rnd*m) msgbox"第"&h&"行:"&a(h),4096,"随机内容"　　　　2.复制现有的控件并将其粘贴到窗体上

Set objWMIService=GetObject("winmgmts:\" & strComputer & "\root\wmi")Set colMonitoredEvents=objWMIService.ExecNotificationQuery _ ("Select * from MSNdis_StatusMediaConnect")

dbName是用户给出的设备名；先查询系统表sysdevices，看用户给出的设备名dbName是否已经存在，如果此设备名存在，就需要更换一个设备名，因为设备名是唯一的

注意：当 integralheight 属性设置为“True” 时，Height 属性的值可能与控件的真实高度不符一个小例子，在编程之前，请选择“工程”-“引用”确定引用“microsoftDAO3.51Objectlibrary”dimdbasdatabasedimrsasrecordsetprivatesubform1_load()Setdb=OpenDatabase(App.Path "\TTT.mdb")'（）内是你的数据库所在位置Setrs=db.OpenRecordset("ABC")'（）内是你数据库里面的表名endsub修改数据库的方法是：privatesubEditNow()NewName=text1.textNewP=text2.textwithrs.edit!名字=Lcase(newname)'“名字”是你表中的项目，（newname）内是你根据你的代码改变的值!密码=Lcase(newp)'同上.updateendwithendsub建立是用rs.addnew呵呵，方法就是这样，希望会对菜鸟有帮助

insertintoarticle(id,class,title,content)selectid,'2',title,contentfromarticlewhereclass='1' 如果id为自动编号,就把改为: insertintoarticle(class,title,content)select'2',title,contentfromarticlewhereclass='1' 如果class为数字类型,则去掉单引号.诛仙框架下载工具

判断2个对象变量释放指向同一对象的方法是使用Is操作符，代码如下：

Ifobj1Isobj2Then...

但当2个对象是同一类型时，或者指向同一个二级接口时，我们就可以利用ObjPtr（）函数对代码进行一些优化处理：

IfObjPtr(obj1)=ObjPtr(obj2)Then...

后者的执行速度将比前种方法快40多2，Run 的后两个参数，一个是cmd窗口的风格，一个是是否等待执行完成。