Új hozzászólás Aktív témák

• #2126 vilag tag martonx #2125

  Új Válasz 2013-06-25 13:37:59 #2126

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  vilag

  tag

  válasz martonx #2125 üzenetére

  Egy ilyet találtam:

  Set fs = Application.FileSearch
  With fs
  .LookIn = "v:\Szamlatervek"
  .Filename = "*000-2*.xls"
  If .Execute > 0 Then
  MsgBox "There were " & .FoundFiles.Count & _
  " file(s) found."
  For i = 1 To .FoundFiles.Count
  MsgBox .FoundFiles(i)
  Next i
  Else
  MsgBox "There were no files found."
  End If
  End With

  Szerintem némi átalakítással még használható is lesz.

Új hozzászólás Aktív témák