二个问题一直没解,烦请大下帮忙??? 第一, 如何通过VB返回是否存在优盘,并知道盘符号和容量 第二, 如何修改ACCESS2000的数据库密码 谢谢 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 调用API函数,判断磁盘的卷标是否为“可移动磁盘”就行了返回U盘容量的函数和返回本地磁盘的函数一样,回头查查就OK了第二个问题就UP cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=1.mdb;Mode=Share Deny Read|Share Deny Write;Persist Security Info=False;Jet OLEDB:Database Password=111"cn.Execute "Alter Database password 222 111" 不须用API,引用 ADO 3.6 就可以了。 对于第一问:GetLogicalDriveStrings 获取目前所有逻辑盘符 然后用GetDriveType获取各个盘符的类型,U盘一般是DRIVE_REMOTE,最后用GetDiskFreeSpace获取空间。各个函数说明列于下【VB声明】 Private Declare Function GetLogicalDriveStrings Lib "kernel32" Alias "GetLogicalDriveStringsA" (ByVal nBufferLength As Long, ByVal lpBuffer As String) As Long【别名】 GetLogicalDriveStringsA【说明】 获取一个字串,其中包含了当前所有逻辑驱动器的根驱动器路径 【返回值】 Long,装载到lpBuffer的字符数量(排除空中止字符)。如缓冲区的长度不够,不能容下路径,则返回值就变成要求的缓冲区大小。零表示失败。会设置GetLastError 【参数表】 nBufferLength -- Long,lpBuffer字串的长度 lpBuffer ------- String,用于装载逻辑驱动器名称的字串。每个名字都用一个NULL字符分隔,在最后一个名字后面用两个NULL表示中止(空中止)***********************************************************************【VB声明】 Private Declare Function GetDriveType Lib "kernel32" Alias "GetDriveTypeA" (ByVal nDrive As String) As Long【别名】 GetDriveTypeA【说明】 判断一个磁盘驱动器的类型 【返回值】 Long,如驱动器不能识别,则返回零。如指定的目录不存在,则返回1。如执行成功,则用下述任何一个常数指定驱动器类型:DRIVE_REMOVABLE, DRIVE_FIXED, DRIVE_REMOTE, DRIVE_CDROM 或 DRIVE_RAMDISK 【参数表】 nDrive --------- String,包含了驱动器根目录路径的一个字串********************************************************************【VB声明】 Private Declare Function GetDiskFreeSpace Lib "kernel32" Alias "GetDiskFreeSpaceA" (ByVal lpRootPathName As String, lpSectorsPerCluster As Long, lpBytesPerSector As Long, lpNumberOfFreeClusters As Long, lpTotalNumberOfClusters As Long) As Long【别名】 GetDiskFreeSpaceA【说明】 获取与一个磁盘的组织有关的信息,以及了解剩余空间的容量 【返回值】 Long,非零表示成功,零表示失败。会设置GetLastError 【备注】 在采用FAT16格式的windows95系统中,如一个驱动器(分区)的容量超过了2GB,则不应使用这个函数。此时,这个函数能识别的最大分区容量只有2GB【参数表】 lpRootPathName - String,不包括卷名的一个磁盘根路径 lpSectorsPerCluster - Long,用于装载一个簇内扇区数的变量 lpBytesPerSector - Long,用于装载一个扇区内字节数的变量 lpNumberOfFreeClusters - Long,用于装载磁盘上剩余簇数的变量 lpTtoalNumberOfClusters - Long,用于装载磁盘上总簇数的变量 急。。。请大侠们赐教!!!!! 导出Excel的问题 高手,出出注意啦! setup factory 6.0打包问题,求教 请问关于wise打包后安装的问题? 麻烦各位看看这个数据库连接代码有什么问题 请教.rep文件(Visual dBASE报表文件 )怎么样才能打开,100分相送. 打包后数据库连接问题!!!! 火急 火急 火急 火急 火急 如何将button控件数组按数量动态排列成几行? 如何知道一个表是否存在,有函数吗 如何使ListBox中 最新加入的Item反亮显示 请教关于Rdo的问题
返回U盘容量的函数和返回本地磁盘的函数一样,回头查查就OK了
第二个问题就UP
GetLogicalDriveStrings 获取目前所有逻辑盘符 然后用GetDriveType获取各个盘符的类型,U盘一般是DRIVE_REMOTE,最后用GetDiskFreeSpace获取空间。
各个函数说明列于下【VB声明】
Private Declare Function GetLogicalDriveStrings Lib "kernel32" Alias "GetLogicalDriveStringsA" (ByVal nBufferLength As Long, ByVal lpBuffer As String) As Long【别名】
GetLogicalDriveStringsA【说明】
获取一个字串,其中包含了当前所有逻辑驱动器的根驱动器路径 【返回值】
Long,装载到lpBuffer的字符数量(排除空中止字符)。如缓冲区的长度不够,不能容下路径,则返回值就变成要求的缓冲区大小。零表示失败。会设置GetLastError 【参数表】
nBufferLength -- Long,lpBuffer字串的长度 lpBuffer ------- String,用于装载逻辑驱动器名称的字串。每个名字都用一个NULL字符分隔,在最后一个名字后面用两个NULL表示中止(空中止)***********************************************************************【VB声明】
Private Declare Function GetDriveType Lib "kernel32" Alias "GetDriveTypeA" (ByVal nDrive As String) As Long
【别名】
GetDriveTypeA
【说明】
判断一个磁盘驱动器的类型
【返回值】
Long,如驱动器不能识别,则返回零。如指定的目录不存在,则返回1。如执行成功,则用下述任何一个常数指定驱动器类型:DRIVE_REMOVABLE,
DRIVE_FIXED, DRIVE_REMOTE, DRIVE_CDROM 或 DRIVE_RAMDISK 【参数表】
nDrive --------- String,包含了驱动器根目录路径的一个字串
********************************************************************【VB声明】
Private Declare Function GetDiskFreeSpace Lib "kernel32" Alias "GetDiskFreeSpaceA" (ByVal lpRootPathName As String, lpSectorsPerCluster As Long, lpBytesPerSector As Long, lpNumberOfFreeClusters As Long, lpTotalNumberOfClusters As Long) As Long【别名】
GetDiskFreeSpaceA【说明】
获取与一个磁盘的组织有关的信息,以及了解剩余空间的容量 【返回值】
Long,非零表示成功,零表示失败。会设置GetLastError 【备注】
在采用FAT16格式的windows95系统中,如一个驱动器(分区)的容量超过了2GB,则不应使用这个函数。此时,这个函数能识别的最大分区容量只有2GB【参数表】
lpRootPathName - String,不包括卷名的一个磁盘根路径 lpSectorsPerCluster - Long,用于装载一个簇内扇区数的变量 lpBytesPerSector - Long,用于装载一个扇区内字节数的变量 lpNumberOfFreeClusters - Long,用于装载磁盘上剩余簇数的变量 lpTtoalNumberOfClusters - Long,用于装载磁盘上总簇数的变量