Krzysiek M.
3/2/2007 10:38:00 AM
On 2 Mar, 09:53, "Tomasz" <wyt...@wp.pl> wrote:
> Tworze skrypt, który robi automatyczny backup katalogów. Kopiowanie
[...]
> wieksze niz np. 200 MB to kopiowanie trwa dlugo. Potrzebuje podgladu postepu
> kopiowania (takiego jaki np. posiada Eksplorator Windows)
>
> Da sie cos takiego zrobic?
Jasne, ponizej kod:
<code>
Dim FSO, CopyTo, CopyFrom, objFolder, objShell
Const FOF_CREATEPROGRESSDLG = &H0&
On Error Resume Next
Set FSO = CreateObject("Scripting.FileSystemObject")
CopyFrom = "C:\Wazne_pliki"
CopyTo = "C:\Backup_waznych_plikow"
If Not FSO.FolderExists(CopyTo) Then
FSO.CreateFolder CopyTo
End If
Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.NameSpace(CopyTo)
objFolder.CopyHere CopyFrom, FOF_CREATEPROGRESSDLG
</code>
Mam nadzieje, ze pomoglem.
--
Pozdrawiam,
Krzysiek