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 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43
| Private Type EnrCapteur
cType As String * 1
cUser As String * 5
cAlive As String * 1
cStatus As String * 1
X As String * 5
Y As String * 5
TStamp As String * 15
End Type
Public capteurdir As String
Private Sub Créer_Click()
frmNewCapt.Show
End Sub
Private Sub Form_Load()
Dim captdata As EnrCapteur
Dim capteurName As String
Dim capteurpath As String
' Display the available capteur names
capteurName = Dir(capteurdir, vbDirectory) ' Retrieve the first entry.
Do While capteurName <> "" ' Start the loop.
' Use bitwise comparison to make sure MyName is a directory.
'If (GetAttr(MyPath & MyName) And vbDirectory) = vbDirectory Then
' Display entry only if it's a directory.
' MsgBox (MyName)
'End If
If (Left$(capteurName, 1) <> ".") Then
capteurpath = capteurdir + capteurName
Open capteurpath For Random Access Read As #7 Len = Len(captdata)
Get #7, 1, captdata
Close #7
' If (Trim(captdata.cUser) = "") Then
ListCapt.AddItem (capteurName)
'End If
End If
capteurName = Dir() ' Get next entry.
Loop
End Sub |
Partager