Jabaco Source |
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 |
Public Sub Command1_Click() Dim myDirectory As String Dim myHidden As Boolean myDirectory = "C:" myHidden = True Dim MsgString As String = "" Dim tmpString As String Dim myFile As New java#io#File(myDirectory) Dim myList = myFile.listFiles Dim myItem As String For i = 0 To Ubound(myList) myItem = myList(i).getName() If (myList(i).isFile()=True) Then IF (NOT (myHidden=False AND myList(i).isHidden()=True)) Then tmpString = myList(i).getName() MsgString = MsgString + tmpString + Chr$(13) + Chr$(10) End If End If Next MsgBox MsgString End Sub |
Intermediate
Date of registration: Jan 1st 2009
Location: Hanover, Germany
Occupation: Software Engineer
Hobbies: Hilbert Curves