Public Function ChecaCiclos()
Dim ccTexto As String
Dim ccTempo As Integer
Dim ccIndex As Integer
Dim Ruta As String: Ruta = "C:\Intel\"
For ccTempo = 0 To 3 'Este 3 varia dependiendo las necesidades de menus
ccTexto = "pr" + CStr(ccTempo) 'Aqui puse un valor estatico a proposito
Select Case ccTempo
Case 0: mPrograma0.Enabled = False
Case 1: mPrograma1.Enabled = False
Case 2: mPrograma2.Enabled = False
Case 3: mPrograma3.Enabled = False
End Select
If ccTempo = 3 Then Exit For 'Puesto a proposito para brincar el ultimo menu
Select Case ccTempo
Case 0: mPrograma0.Enabled = True: mPrograma0.Caption = "pr" + CStr(ccTempo)
For ccIndex = mCiclo0.Count - 1 To 1 Step -1
Unload mCiclo0(ccIndex) 'Elimina los ciclos anteriorees
Next ccIndex
ccTexto = Dir(Ruta + "pr" + CStr(ccTempo) + "\", vbDirectory)
Do While ccTexto <> ""
If ccTexto <> ".." And ccTexto <> "." Then
ccIndex = GetAttr(Ruta + "pr" + CStr(ccTempo) + "\" + ccTexto)
If ccIndex = vbDirectory Then
Load mCiclo0(mCiclo0.Count)
mCiclo0(mCiclo0.Count - 2).Caption = ccTexto
End If
End If
ccTexto = Dir
Loop: Unload mCiclo0(mCiclo0.Count - 1)
Case 1: mPrograma1.Enabled = True: mPrograma1.Caption = "pr" + CStr(ccTempo)
For ccIndex = mCiclo1.Count - 1 To 1 Step -1
Unload mCiclo1(ccIndex) 'Elimina los ciclos anteriorees
Next ccIndex
ccTexto = Dir(Ruta + "pr" + CStr(ccTempo) + "\", vbDirectory)
Do While ccTexto <> ""
If ccTexto <> ".." And ccTexto <> "." Then
ccIndex = GetAttr(Ruta + "pr" + CStr(ccTempo) + "\" + ccTexto)
If ccIndex = vbDirectory Then
Load mCiclo1(mCiclo1.Count)
mCiclo1(mCiclo1.Count - 2).Caption = ccTexto
End If
End If
ccTexto = Dir
Loop: Unload mCiclo1(mCiclo1.Count - 1)
Case 2: mPrograma2.Enabled = True: mPrograma2.Caption = "pr" + CStr(ccTempo)
For ccIndex = mCiclo2.Count - 1 To 1 Step -1
Unload mCiclo2(ccIndex) 'Elimina los ciclos anteriorees
Next ccIndex
ccTexto = Dir(Ruta + "pr" + CStr(ccTempo) + "\", vbDirectory)
Do While ccTexto <> ""
If ccTexto <> ".." And ccTexto <> "." Then
ccIndex = GetAttr(Ruta + "pr" + CStr(ccTempo) + "\" + ccTexto)
If ccIndex = vbDirectory Then
Load mCiclo2(mCiclo2.Count)
mCiclo2(mCiclo2.Count - 2).Caption = ccTexto
End If
End If
ccTexto = Dir
Loop: Unload mCiclo2(mCiclo2.Count - 1)
Case 3: mPrograma3.Enabled = True: mPrograma3.Caption = "pr" + CStr(ccTempo)
For ccIndex = mCiclo3.Count - 1 To 1 Step -1
Unload mCiclo3(ccIndex) 'Elimina los ciclos anteriorees
Next ccIndex
ccTexto = Dir(Ruta + "pr" + CStr(ccTempo) + "\", vbDirectory)
Do While ccTexto <> ""
If ccTexto <> ".." And ccTexto <> "." Then
ccIndex = GetAttr(Ruta + "pr" + CStr(ccTempo) + "\" + ccTexto)
If ccIndex = vbDirectory Then
Load mCiclo3(mCiclo3.Count)
mCiclo3(mCiclo3.Count - 2).Caption = ccTexto
End If
End If
ccTexto = Dir
Loop: Unload mCiclo3(mCiclo3.Count - 1)
End Select
Next ccTempo
End Function
Private Sub Form_Load()
ChecaCiclos
End Sub