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

• #29241 poffsoft veterán PETEE78 #29240

  Új Válasz 2015-10-27 21:33:17 #29241

  Ú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

  

  poffsoft

  veterán

  válasz PETEE78 #29240 üzenetére

  majdnem jó
  Dim FSO As Object
  Dim FromPath As String
  Dim ToPath As String
  Dim i As Integer
  i = 1
  Do While i < 31
  FromPath = "C:\TS AKTUÁLIS\2015.10." & right("0" & i ,2)
  ToPath = "C:\TS AKTUÁLIS\OKTÓBER"
  
  If Right(FromPath, 1) = "\" Then
  FromPath = Left(FromPath, Len(FromPath) - 1)
  End If
  
  If Right(ToPath, 1) = "\" Then
  ToPath = Left(ToPath, Len(ToPath) - 1)
  End If
  
  Set FSO = CreateObject("scripting.filesystemobject")
  If FSO.FolderExists(FromPath) = True Then
  FSO.CopyFolder Source:=FromPath, Destination:=ToPath
  End If
  
  i = i + 1
  Loop
  MsgBox "You can find the files and subfolders from " & FromPath & " in " & ToPath
  End Sub

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