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

• #29240 PETEE78 senior tag

  Új Válasz 2015-10-27 15:31:42 #29240

  Ú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

  Sziasztok!

  Könyvtárból alkönyvtárak tartalmát szeretném átmásolni egyik helyről másikra. Erre találtam a neten egy majdnem jó megoldást, amit próbáltam kiegészíteni a saját okoskodásommal.
  Az i változót én próbálnám belecsempészni úgy, hogy 01-31-ig változzon.
  Az egyik problémám, hogy amint nem talál mondjuk 2015.10.03 végezetű könyvtárat hibára fut és ki is írja a megírtak szerint. Én ezt úgy szeretném, hogy ilyenkor ne hibaüzenetet dobjon, hanem továbblépjen a következő i értékre.
  A másik problémám, hogy nem tudom hogy jelöljem a FromPath könyvtárnál a 01-31 részt i változóval.
  Segítségeteket köszönöm!

  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.0" & (i)
  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) = False Then
  MsgBox FromPath & " doesn't exist"
  Exit Sub
  End If
  FSO.CopyFolder Source:=FromPath, Destination:=ToPath
  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