vb选取文件夹下多个文件，如何把文件路径放入数组？

窗体上放置一个dirlistbox控件

dim

s

as

string,

t

as

integer

private

sub

dir1_change()

if

ubound(split(dir1.path,

"\"))

<扒伏

t

then

dir1.path

=

s

end

sub

private

sub

form_load()

dir1.path

=

app.path

'设置指定 *** 作文件夹，这里是程序所在目录

s

=

dir1.path

t

=

ubound(split(s,

"\"))

end

sub

补充回答：

这个似乎就和你一开始的要求有冲突了。如果这个文件夹是指定文件夹的子文件夹，那么你可以通过dirlistbox随意 *** 作，如果不是，那么根据你的要求，就不能随意打开。如果你的意思是指任意设置指定的目录，那么我在上面的程序中也有说明了，只要给dir1.path赋值即可（比如dir1.path

=

"d:\crt"），方法有多种（包括读取文件中保存的路径名等），但不管用什么方法，都不能够在程序界面上给用户任意选春码携择，否则你开始的那些模伍要求就没意义了。

路径 中反衡塌斜杠 用 双斜杠书写。用 sprintf 构成 文件全路径。

程序例谈行子如下。

#include<stdio.h>

int main( )

{

FILE *fp

char path1[80]="E:\\Users\\Wang" //主路径含拦哗

char sub_path[40]="P1\\text\\win_ver.txt" //子路径和文件名

char f_name[120] //文件全路径

sprintf(f_name,"%s\\%s",path1,sub_path) //构成文件全路径

printf("I will open %s\n",f_name)

fp=fopen(f_name,"r") //打开文件

if (!fp) {printf("Can not opne %s\n",f_name)exit(0)}

printf("Good !\n")

fclose(fp) //关闭文件

return 0

}

给你段代码，蔽神path就是你说的某晌并竖个文件夹

//遍历path，将所宴大有可处理的图片文件放入数组

Vector<String>imagePathArray=new Vector<String>()

File dir = new File(path)

File file[] = dir.listFiles()

for (int i = 0i <file.lengthi++) {

if (file[i].isFile())

{

String icon=file[i].getAbsolutePath()

if (icon.endsWith(".png") || icon.endsWith(".PNG") ||//这里仅仅加入png和jpg文件格式，需要其他格式就在这里增加判断

icon.endsWith(".jpg") || icon.endsWith(".jpg"))

imagePathArray.add(icon)

}

}

---