|
分類:[VB6 以前]
リストボックスについて質問させて下さい。
リストボックス内容は・・・・・・
ファイル名 ファイル0001 ファイル0002 ファイル0003
ファイル名の取得をしたいのですが、
For i = 0 File1.ListCount - 1 If File1.Selected(i) = True
strCRE_FILE_DTE = Replace(Replace(Replace(File1.FileName, "uriage",""),"txt",""),".end","")
処理・・・
End If
Next i
リストボックス名はFile1とし、ファイル名を取得したいのですが、ファイル0003の名称 を取得後、ファイル001を取得できません。
Forでまわしているのに、FileNameでは取得できないんでしょうか? 宜しくお願いします
|