Jump to content

highlander38

Members
  • Content Count

    179
  • Joined

  • Last visited

About highlander38

  • Rank
    Advanced Member
  • Birthday 01/13/1974

Contact Methods

  • MSN
    unlockphone@hotmail.es

Profile information

  • Gender
    Hombre

Converted

  • Campos
    ;

Recent Profile Visitors

668 profile views
  1. Aprendiendo cada dia mas.

  2. 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
×
×
  • Create New...

Important Information

Privacy Policy