🚀 go-pugleaf

Dnia Fri, 02 Sep 2016 16:02:07 +0200, Smyk napisał(a):

> 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ę 
> ?

Nie. Zwróć uwagę, że ciapki są odpowiednie.