|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 |
folder = "c:\Intel" sprawdz_co = "3000" 'w milisekundach - 30 sek tryb_pracy = 1 '1=sprawdza czy sa zmiany w katalogu (ilosc plikow i ich nazwy) '2=sprawdza czy pojawil sie jakis plik w katalogu prev_content=-1 dim fNames() Sub Message(tresc) strMbox =MsgBox("W katalogu " & folder & " liczba plików " & tresc & vbCr & vbLf &"Kontynuować sprawdzanie?", 4 ,"Zmiany w katalogu") If strMbox = 7 Then WScript.Quit End If End sub While true if tryb_pracy = 1 then content = "" set fso = CreateObject("Scripting.fileSystemObject") set fold = fso.getFolder(folder) fileCount = fold.files.count dirCount = fold.subfolders.count allCount = fileCount+dirCount redim fNames(allCount) cFcount = 0 for each file in fold.files cFcount = cFcount + 1 fNames(cFcount) = lcase(file.name) next for each dir in fold.subfolders cFcount = cFcount + 1 fNames(cFcount) = lcase(dir.name) next for tName = 1 to allCount for nName = (tName + 1) to allCount if strComp(fNames(tName),fNames(nName),0)=1 then buffer = fNames(nName) fNames(nName) = fNames(tName) fNames(tName) = buffer end if next next for i = 1 to allCount content = content & fNames(i) & vbCr & vbLf next 'MsgBox content if prev_content<>-1 then if allCount = prev_allCount then if content <> prev_content then Message("się zgadza, ale są inne nazwy.") end if elseIf allCount > prev_allCount then Message("wzrosła.") elseIf allCount < prev_allCount then Message("zmalała.") end if end if prev_content=content prev_allCount=allCount elseIf tryb_pracy = 2 then Set fso = CreateObject("Scripting.FileSystemObject") Set f = fso.GetFolder(folder) Set fc = f.Files Set ff = f.Subfolders If 0 <> fc.Count or ff.Count Then Message("różna od zera") End If else Msgbox "Wybierz poprawny tryb pracy" WScript.Quit end if WScript.Sleep(sprawdz_co) Wend |
-
Archiwa
-
Meta