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

• #29463 PETEE78 senior tag

  Új Válasz 2015-11-11 15:57:08 #29463

  Ú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

  

  PETEE78

  senior tag

  A dir megoldotta a kérdést
  Köszi mindenkinek!

  mystring = Format(Now(), "yyyymmdd")
  sdateform = Mid(mystring, 3)

  filename = Dir("X:\Kimeno\221_ALMA_20" & sdateform & "*.*")
  oldPath = "X:\Kimeno\"
  newPath = "C:\probakonyvtar\" & sdateform
  Set fs = CreateObject("Scripting.FileSystemObject")
  fs.CopyFile oldPath & "\" & filename, newPath & "\" & filename
  Set fs = Nothing

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