| 发表于:2007-09-30 16:00:134楼 得分:0 |
vb声明 declare function setvolumelabel lib "kernel32" alias "setvolumelabela" (byval lprootpathname as string, byval lpvolumename as string) as long 说明 设置一个磁盘的卷标(label) 返回值 long,true(非零)表示成功,否则返回零。会设置getlasterror 参数表 参数 类型及说明 lprootpathname string,磁盘卷的根路径 lpvolumename string,指定新卷标。用vbnullstring指示删除当前卷名 例如:要将d盘的卷标修改为“application disk” declare function setvolumelabel lib "kernel32" alias "setvolumelabela" (byval lprootpathname as string, byval lpvolumename as string) as long dim ret as long ret=setvolumelabel("d:\", "application disk") if ret <> 0 then msgbox "修改成功啦!" | | |
|