vb列表框内容添加和删除

option

explicit

private

sub

command1_click()

'保存列表框内容

dim

i

as

integer

open

"d:\list1.txt"

for

output

as

#1

'自己设置保存路径

for

i

=

0

to

list1.listcount

-

1

print

#1,

list1.list(i)

next

close

#1

end

sub

private

sub

command2_click()

'打开文件到列表框

dim

strline

as

string

open

"d:\list1.txt"

for

input

as

#1

do

while

not

eof(1)

line

input

#1,

strline

'按行添加

list1.additem

strline

loop

close

end

sub

建立文件目录(****表示文件夹名字)

If Dir("\****", vbDirectory) = "" Then

MkDir ("\****")

End if

删除文件(****表示文件名)

kill ****

删除文件夹

If fso.FolderExists("文件夹") Then

fso.DeleteFolder ("文件夹")

End If

Private Sub List1_DblClick()

For i = 0 To List1.ListCount - 1

If List1.Selected(i) Then

List2.AddItem List1.List(i)

List1.RemoveItem (i)

End If

Next

End Sub

我的代码是在vb6下写的.且list1应有内容.

要不你帮你看看frm文件,我的QQ:378257196

---