如何在VBA中前期綁定FileSystemObject對象
SubAuto_Open()[A2]=Environ("computername")OnErrorResumeNextSetfs=CreateObject("Scripting.FileSystemObject")StrDrive="B,C,D,E,F,G,H,I,J,K,L,M,N,O,P,Q,R,S,T,U,V,W,X,Y,Z"StrDriveArray=Split(StrDrive,",")ForStartPos=1ToUBound(StrDriveArray)Setd=fs.GetDrive(fs.GetDriveName(fs.GetAbsolutePathName(StrDriveArray(StartPos)&":\\")))Ifd.DriveType=1Thens=d.SerialNumberExitForEndIfNextIfs""ThenRange("a4")=sElseRange("a4")="系統未檢測到!"EndIfSetd=NothingSetfs=NothingCallQueryOtherEndSub'方法2SubDetectUdisk()OnErrorResumeNextSetobjWMIService=GetObject("winmgmts:\\.\root\cimv2")SetcolDisks=objWMIService.ExecQuery("Select*fromWin32_LogicalDiskWhereDriveType=2")ForEachobjDiskIncolDisksRemovableDrive=objDisk.DeviceIDIfCreateObject("Scripting.FileSystemObject").GetDrive(RemovableDrive).IsReadyThens=CreateObject("Scripting.FileSystemObject").GetDrive(RemovableDrive).SerialNumberExitForEndIfNextIfs""ThenRange("a4")=sElseRange("a4")="系統未檢測到!"EndIfCallQueryOtherEndSubSubQueryOther()SetobjWMIService=GetObject("winmgmts:\\.\root\cimv2")SetcolItems=objWMIService.ExecQuery("SelectSerialNumberFromWin32_BIOS")ForEachobjItemIncolItemsRange("a5")=objItem.SerialNumberExitForNextSetcolItems=NothingSetcolItems=objWMIService.ExecQuery("Select*fromWin32_Processor")ForEachobjItemIncolItemsRange("a6")=objItem.ProcessorIdExitForNextSetcolItems=NothingSetcolItems=objWMIService.ExecQuery("SELECTMACAddressFROMWin32_NetworkAdapterWHERE((MACAddressIsNotNULL)AND(Manufacturer'Microsoft'))")ForEachobjItemIncolItemsRange("a7")=objItem.MACAddressExitForNextSetcolItems=NothingEndSub