对于可删除的驱动器,不需要将媒体插入其中,它就可以在Drives集合中显示出来。 下面的代码举例说明了如何获得 Drives 集合,以及如何用 For Each...Next 语句来访问该集合中的每个Drive: Sub ShowDriveList Dim fs, d, dc, s, n Set fs = CreateObject("scr ipting.FileSystemObject") Set dc = fs.Drives For Each d in dc s = s & d.Drive
大家都知道, Windows API是Windows操作系统的一系列的底层函数,是操作系统提供给用户进入操作系统核心进行高级编程的途径, 虽然微软在 Microsoft Visual Studio 6.0 及以下版本中提供了一个用于API浏览的API Text Viewer, 不过功能十分简陋, 部分声明有错误, 而且提供不够充足;而在 Microsoft Visual Studio 7.0 (.net) 及以上版本中为了达到跨平台、安全等一系列新特性,微软已经写好了一个内容丰富的受管制的代码
用VB的朋友请进 本压缩文件写的是关于API的函数全集,包括用法都在里面了 下面举例吧: PostMessage, PostMessageBynum, PostMessageBystring VB声明 Declare Function PostMessage& Lib "user32" Alias "PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) Declar