Aktív témák

• #17 Sunzi aktív tag WN31RD #15

  2003-08-27 15:43:12 #17

  Ö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

  

  Sunzi

  aktív tag

  válasz WN31RD #15 üzenetére

  Valóban, ha tegyük fel pontbn éjfél előtt 1-2 ezredmásodperccel futtatja, akkor a hiba előálhat..
  új kód:
  
  set fso=CreateObject(''Scripting.Filesystemobject'')
  Dim fnamed
  fnamed=Date()
  fname=Right(Year(fnamed),2)
  fname=fname & ''-'' & Left(''00'',2-Len(Month(fnamed))) & Month(fnamed)
  fname=fname & ''-'' & Left(''00'',2-Len(Day(fnamed))) & Day(fnamed)
  
  set f=fso.Createfolder(''C:\'' & fname)
  
  Kevésbé bonyolult mondjuk nem lett tőle...
  
  S.
  

Aktív témák