如下用打开光盘指定的里的文件做例子:

private declare function getlogicaldrivestrings lib "kernel32" alias "getlogicaldrivestringsa" (byval nbufferlength as long, byval lpbuffer as string) as long

private declare function getdrivetype lib "kernel32" alias "getdrivetypea" (byval ndrive as string) as long

 

private sub form_click()

    dim strdrive as string           '盘符串(a:\ c:\ d:\...)

    dim driveid as string            '盘符(如:a:\)

    strdrive = string(100, chr$(0))  '初始化盘符串

    call getlogicaldrivestrings(100, strdrive) '返回盘符串

    dim i as integer

   '返回光盘盘符到数组

    for i = 1 to 100 step 4             '注意这里是4