Aktív témák

• #44 X-COM nagyúr beeboy #43

  2003-09-05 11:34:13 #44

  Ö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

  

  X-COM

  nagyúr

  válasz beeboy #43 üzenetére

  hm, ez hol szerepelt pontosan?
  
  ez egy megoldás lehet:
  
  Dim oFSO,oFolder
  Set oFSO=WScript.CreateObject(''Scripting.FileSystemObject'')
  set oFolder=oFSO.GetFolder(''C:\'')
  For Each file In oFolder.Files
  If Right(file.name,4)=''.txt'' then
  WScript.Echo(file.name)
  End if
  Next
  Set oFolder=Nothing
  Set oFSO=Nothing

Aktív témák