Function GetContent_ComboBox() As String()
Dim strPath As String = "C:\OGameSaves\"
Dim strDirectorynames() As String = Nothing
Dim intIndex As Integer = Nothing
Dim intArrayLength As Integer = Nothing
Dim intLengthBefore As Integer = Nothing
Dim strTmp As String = Nothing
Dim strTmp2 As String = Nothing
Dim strResult() As String = Nothing
 
 
strDirectorynames = System.IO.Directory.GetFiles(strPath, "*.txt")
intArrayLength = System.Array.GetLength(0)
intLengthBefore = strPath.Length
 
 
 
 
If intArrayLength > 0 Then
'Ergebnisarray auf richtige Größe dimensionieren
ReDim strResult(intArrayLength -1)
For intIndex = 0 To intArrayLength -1
 strTmp = Nothing
 'Vorne abschneiden
 strTmp = Microsoft.VisualBasic.Right(strDirectorynames(intIndex), _
   strDirectorynames(intIndex).Length - intLengthBefore)
 '".txt" abschneiden
 strTmp2 = Microsoft.VisualBasic.Left(strTmp(intIndex), strTmp(intIndex).Length _
   - 4)
 'Wert dem Ergebnisarray zuweisn
 strResult(intIndex) = strTmp2
Next
Else
'Keine Textdateien im Ordner gefunden
 strResult = Nothing
End If
 
return strResult
End Function