🚀 go-pugleaf

Cześć Zbyszku.

Pisałem na mejla, ale wrócił.
Pozwolę sobie zamieścić tutaj.

Napisałem taki prosty programik do robienia archiwizacji.
Pierwotnie używałem Shell(xcopy…), ale że folderów Buchaltera jest jakieś
80, to uruchamiało się tyle ‘hostcon.exe’ i mój
komunikat o skończonym kopiowaniu był nieprawdziwy.

Próbuję ze scripting, ale mi się wywala.
Ścieżka do plików źródłowych istnieje, tworzy się pierwszy katalok poprzez
MkDir, ale samo kopiowanie wywala błąd.

P.S. Jako że baza Płatnika i pliki Rewizora nie są duże, to stosuję Shell.

Oto kod:

Private Sub Polecenie2_Click()
DoCmd.Hourglass True
Dim fobj As Object
Set fobj = CreateObject("Scripting.FileSystemObject")
Dim Data As String, s As String, d As String
Data = Format(Date, "yyyy-MM-dd")
If Dir("G:\" & Data & "\", vbDirectory) <> "." Then
    MkDir ("G:\" & Data)
    MkDir ("G:\" & Data & "\Platnik")
    MkDir ("G:\" & Data & "\Rewizor")
    MkDir ("G:\" & Data & "\Buchalter")
End If
q = Shell("Xcopy P:\Baza G:\" & Data & "\Platnik\ /E /Y /H", vbHide)
q = Shell("Xcopy R:\ G:\" & Data & "\Rewizor\ /E /Y /H", vbHide)

Dim db As Database
Set db = CurrentDb
Dim rs As DAO.Recordset
Set rs = db.OpenRecordset("Buchalter")
rs.MoveLast
rs.MoveFirst
For x = 1 To rs.RecordCount
    If rs.Fields("Archiwizowac") = True Then
        Kat = rs.Fields("Katalog")
        MkDir ("G:\" & Data & "\Buchalter\" & Kat)
        k = "Xcopy F:\Buch\" & Kat & " G:\" & Data & "\Buchalter\" & Kat &
\ /E /Y /H"
        s = "F:\Buch\" & Kat & "\"
        d = "G:\" & Data & "\Buchalter\" & Kat & "\"
        fobj.CopyFolder s, d, True ' tu się wywala, że nie znalazł ścieżki
        Exit For
        'q = Shell(k, vbHide)
        'Sleep (1000)
        qq = SysCmd(acSysCmdSetStatus, Kat)
    End If
    rs.MoveNext
Next
inf = MsgBox("Archiwizacja wykonana pomyślnie.", vbOKOnly, "UWAGA")
DoCmd.Hourglass False
End Sub