vbs-ben segítség kellene!!!

[Zsolt Nagy]

Sziasztok!

adott:

*ecdl.vbs* - fájl amit így futtatok: cscript \\server\NETLOGON\ecdl.vbs *
ecdl.cmd* fájlba van kiadva az utasítás, amit a kliens netlogonban indít el!


Const OverWriteFiles = TRUE

Set objFSO = CreateObject("Scripting.FileSystemObject")

On Error Resume Next

objFSO.CreateFolder("c:\documents and settings\vizsga\asztal\ecdl")

on error goto 0



Dim arrFolders()
intSize = 0

strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")

strFolderName = "c:\documents and settings\vizsga\asztal\ecdl"

Set colSubfolders = objWMIService.ExecQuery _
    ("Associators of {Win32_Directory.Name='" & strFolderName & "'} " _
        & "Where AssocClass = Win32_Subdirectory " _
            & "ResultRole = PartComponent")

ReDim Preserve arrFolders(intSize)
arrFolders(intSize) = strFolderName
intSize = intSize + 1

For Each objFolder in colSubfolders
    GetSubFolders strFolderName
Next

Sub GetSubFolders(strFolderName)
    Set colSubfolders2 = objWMIService.ExecQuery _
        ("Associators of {Win32_Directory.Name='" & strFolderName & "'} " _
            & "Where AssocClass = Win32_Subdirectory " _
                & "ResultRole = PartComponent")

    For Each objFolder2 in colSubfolders2
        strFolderName = objFolder2.Name
        ReDim Preserve arrFolders(intSize)
        arrFolders(intSize) = strFolderName
        intSize = intSize + 1
        GetSubFolders strFolderName
    Next
End Sub

For i = Ubound(arrFolders) to 0 Step -1
    strFolder = arrFolders(i)
    strFolder = Replace(strFolder, "\", "\\")
    Set colFolders = objWMIService.ExecQuery _
        ("Select * from Win32_Directory where Name = '" & strFolder & "'")

    For Each objFolder in colFolders
        errResults = objFolder.Delete
    Next
Next

objFSO.CopyFolder "\\SERVER\Vizsga\Ecdl" , "c:\documents and
settings\vizsga\asztal\ecdl"


A problémám:

1. a tálcára dobva megjelenik és a gyerek be tudja zárni a a fájlok
felmásolásának folyamatát
2. valami oknál fogva nem dolgozik az összehasonlítás normálisan:

   -    ha teljesen letörlöm a kliensen a mappát akkor felmásolja
   -    ha beletörlök a kliensen 1-2 állományba, vagy letörlök egy két fájlt
   nem törli és írja újra
   -    ha bővítem a mappákat a kliensen további állományokkal, mappákkal,
   akkor sem törli és írja újra fel

légyszi segítsetek mi lehet a baj?

Üdv:
Zsolti
--------- következő rész ---------
Egy csatolt HTML állomány át lett konvertálva...
URL: http://lista.sulinet.hu/pipermail/techinfo/attachments/20100726/e0cb184b/attachment.html