🚀 go-pugleaf

Jacek wrote at Fr 02.09.2016 12:24:

> Cze¶æ Zbyszku.

Jam co prawda nie Zbyszek, ale pozwolê sobie zabraæ g³os ;)

> 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

Czy masz w polu "Katalog" tabeli "Buchalter" warto¶ci które zawieraj± spacjê
?