PDA

Vollständige Version anzeigen : mehrere Dateinamen auf einmal auslesen


Christian H
26.07.2001, 19:14
Hallo!

Ich habe ein Problem, ich möchte mehrere Dateien gleichzeitig auswählen und die ausgewählten Dateinamen in einem String speichern mit einem Komma dazwischen.

Wie kann ich das realisieren mit dem gleichzeitig auswählen mehrerer Dateien und dem Auslesen der Dateinamen??

Cu CHris

Stefan Kulpa
28.07.2001, 04:47
<font face="Verdana" size="2">Hallo,

das geht beispielsweise mit der FileListBox und der Eigenschaft MultiSelect=True:</font>
<PRE><FONT SIZE=1 FACE=Courier New> <FONT COLOR=#000080>Dim</FONT> sSelection <FONT COLOR=#000080>As String</FONT>
<FONT COLOR=#000080>Dim</FONT> lCnt <FONT COLOR=#000080>As</FONT> <FONT COLOR=#000080>Long</FONT>

<FONT COLOR=#000080>If</FONT> File1.ListCount > 0 <FONT COLOR=#000080>Then</FONT>
<FONT COLOR=#000080>For</FONT> lCnt = 0 <FONT COLOR=#000080>To</FONT> File1.ListCount - 1
<FONT COLOR=#000080>If</FONT> File1.Selected(lCnt) <FONT COLOR=#000080>Then</FONT>
<FONT COLOR=#000080>If</FONT> Len(sSelection) > 0 <FONT COLOR=#000080>Then</FONT> _
sSelection = sSelection & ";"
sSelection = sSelection & File1.List(lCnt)
<FONT COLOR=#000080>End</FONT> <FONT COLOR=#000080>If</FONT>
<FONT COLOR=#000080>Next</FONT>
<FONT COLOR=#000080>End</FONT> <FONT COLOR=#000080>If</FONT>
<FONT COLOR=#000080>Debug.Print</FONT> sSelection

</FONT></PRE>

<font face="Verdana" size="2">HTH</font>

Christian H
30.07.2001, 06:41
ok, danke, ich probiere es mal aus

Cu Chris