Zdravím všechny,
prosím o pomoc.
Níže vkládám kód,který používám ve sdílené aplikaci pro přesouvání souborů a složek do jiné složky.
Názvy složek jsou zde proměnné.Kód je součástí rozsáhlého kódu(userformu) proto jsem vložil jenom tlačítko,které funkci spustí.
Jde o to,že když se mi to podařilo zprovoznit-vždy mi fungovalo jen přesunutí složek nebo jen přesunutí souborů-pak mi vše chodilo jak má-přesouvaly se jak složky tak soubory.Jenže mi asi po nějaké době nastal problém v tom,že se mi někdy přesunou složky a soubory zůstanou nebo obráceně.
Překontrolovával jsem kód několikrát ( bohužel jsem si to vůbec nepopsal),nějakou dobu si kódy ukládám do textových souborů s názvy funkcí(co mají dělat) a nenašel jsem žádný rozdíl a navíc nejsem schopný ani zjistit proč mi to takhle blbne.
Proto prosím o pomoc zde přítomné,možná jiní uvidí chybu kterou já nevidím.
Předem děkuji za pomoc.
Zde kód tlačítka:
[
Private Sub CommandButton15_Click()
Dim fso As Object
Dim FromPath As String
Dim ToPath As String
Dim FolderExt As String
Dim FNames As String
Dim FileInFromFolder As Object
FromPath = "Z:\PLC\" & Label27.Caption & "\" & TextBox11.Text & "\"
ToPath = "Z:\OLD-PLC\" & Label27.Caption & "\" & TextBox12.Text & "\"
FileExt = "*.*"
If Right(FromPath, 1) <> "\" Then
FromPath = FromPath & "\"
End If
FNames = Dir(FromPath & FileExt)
If Len(FNames) = 0 Then
MsgBox "soubory v " & FromPath & "neexistují"
Exit Sub
End If
Set fso = CreateObject("scripting.filesystemobject")
fso.CreateFolder (ToPath)
For Each FileInFromFolder In fso.getfolder(FromPath).Files
Fdate = Int(FileInFromFolder.DateLastModified)
FileInFromFolder.Move ToPath
Next FileInFromFolder
fso.MoveFolder Source:=FromPath & FileExt, Destination:=ToPath
MsgBox "Všechny složky a soubory přesunuty z " & FromPath & " do " & ToPath
mytxt = Label30.Caption & " " & TextBox13 'bez ohledu na textové pole text je v
Open ToPath & "\důvod úpravy PLC.txt" For Append As #1 ' změňte cestu, aby odrážel cestu
Print #1, mytxt
Close #1
fso.CopyFile ToPath & "\důvod úpravy PLC.txt", FromPath & "\důvod úpravy PLC.txt"
End Sub
]
přestala fungovat funkce přesunutí souborů a složek
-
- Mohlo by vás zajímat
- Odpovědi
- Zobrazení
- Poslední příspěvek
-
-
WIN 10 přesunutí složek users na jiný disk
od Richard_ZZR » 10 úno 2024 11:30 » v Windows 11, 10, 8... - 3
- 1703
-
od petr22
Zobrazit poslední příspěvek
10 úno 2024 13:26
-
-
-
Přesunutí sms do nového android telefonu
od Petr98 » 21 říj 2023 16:10 » v Mobily, tablety a jiná přenosná zařízení - 4
- 2934
-
od meda2016
Zobrazit poslední příspěvek
21 říj 2023 21:45
-
-
-
Wifi přestala vysílat signal, ale Ethernet kabel jede
od sicker » 17 srp 2023 14:46 » v Problémy s hardwarem - 2
- 1137
-
od sicker
Zobrazit poslední příspěvek
17 srp 2023 15:43
-
-
-
MS Outlook - Hromadné vytvoření složek Příloha(y)
od czTANIScz » 22 zář 2023 11:36 » v Kancelářské balíky - 6
- 4480
-
od czTANIScz
Zobrazit poslední příspěvek
23 zář 2023 22:34
-
-
- 5
- 4050
-
od mmmartin
Zobrazit poslední příspěvek
13 črc 2023 18:44
Kdo je online
Uživatelé prohlížející si toto fórum: Žádní registrovaní uživatelé a 2 hosti