はじめまして。

今、ＶＢを使ってプログラムを組んでいるのですが
Lsitboxで選択したものを次へボタンを押したときに
csvファイルに保存できるようにしたいのです。

いろいろ、試してみたのですがどうにも旨くいきません。
もし、分かる方がいましたら、教えていただけないでしょうか。
お願いします。


Public Dir1, Dir2 As String
Dim fname(100) As String
Public cot As Integer

'スタートの処理
Private Sub Command1_Click()
Dir1 = "C:\Documents and Settings\karalab\My Documents\ito\図形\21\" '表示イメージを読み込みするファイル
Dir2 = "C:\Documents and Settings\karalab\My Documents\ito\図形\11\" '表示イメージを読み込みするファイル
For i = 1 To 100
fname(i) = Mid(Str(i), 2) + ".jpg"
Next
cot = 1
Image1.Picture = LoadPicture(Dir1 + fname(cot)) 'イメージを表示
Image2.Picture = LoadPicture(Dir2 + fname(cot))
End Sub

'次へを押したときの処理
Private Sub Command2_Click()
Image1.Picture = LoadPicture(Dir1 + fname(cot + 1)) 'イメージを表示
Image2.Picture = LoadPicture(Dir2 + fname(cot + 1))
cot = cot + 1
End Sub

Private Sub Command3_Click() '「END」ボタンを押した場合
End
End Sub

> いろいろ、試してみたのですがどうにも旨くいきません。

どのように試してどこがうまくいかなかったのでしょうか？　投稿されたコードでは
どこにも保存処理らしき事は書いていないようですが、ファイルの入出力が解らないのなら
ここのファイル操作関係をご覧下さい。
ListBox の操作が解らないなら、その他のコントロールのところをご覧下さい。