highlander38

Ya podeis cerrar el tema

Buenos dias a todos. Con este codigo: Option Explicit Const PATH As String = "C:\Documents and Settings\LAMOGA\Escritorio\Formulario Web\" Public Sub Form_Load() Call CountFileType("xlsm") End Sub Public Sub CountFileType(ByVal fType As String) Dim c As Long If LenB(Dir(PATH & "\*." & fType)) <> 0 Then c = c + 1 Do While (LenB(Dir()) <> 0) c = c + 1 ' found another file increment counter Loop MsgBox "Number of " & fType & " = " & c Else MsgBox "Cant find any " & fType & " files!" E