我目前正在处理监视子文件夹的vbscript。但现在,我希望脚本监控子文件夹中的文件夹。如何监视包含所有子文件夹和子文件夹内的文件夹
例如:地图是'进口'。在导入文件夹中有几个文件夹(子文件夹)。在子文件夹中还有更多的文件夹,这就是我想监视的。
我希望这很清楚明白我的意思。
例子:http://gyazo.com/3f0b7a9d492361fef41fbbe9760a8da1
例2:http://gyazo.com/284734da6b70d1b91ac7e3afc4e10918
这就是我现在所拥有的:
Option Explicit
Dim objExcel, strExcelPath, objSheet, fso, folder, colFolders, objFSO, objFile, objbook, objDoc, objShell, rs, f, s, EmailBody, EmailAttachments, objWorkbook, strFile, IntRow, objRange, x, objWorksheet,wbc, SaveChanges, objSubFolder, objFrigolanda, foldername, moddate,folders, Frigolanda
Const adVarChar = 200
Const adDate = 7
Const adBigInt = 20
'=====
'Set objecten
set fso = createobject("scripting.filesystemobject")
set folder = fso.getfolder("\\netko-sbs\data\imports\")
Set colFolders = folder.SubFolders
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.CreateTextFile("\\netko-sbs\data\Imports\output.txt", True)
'=====
' Check if file exists.
Set objFSO = CreateObject("Scripting.FileSystemObject")
If (objFSO.FileExists(strFile) = True) Then
objFSO.DeleteFile(strFile)
End If
'=====
'create a custom disconnected recordset
'with fields for filename, last modified date, and size.
'=====
set rs = createobject("ador.recordset")
rs.fields.append "foldername",adVarChar,255
rs.fields.append "moddate",adDate
'rs.fields.append "filesize",adBigInt
'====
'Excel
'Set objWorksheet = objWorkbook.Worksheets(1)
Set objExcel = CreateObject("Excel.Application")
Set objWorkbook = objExcel.Workbooks.Open _
("\\netko-sbs\Data\Imports\output.xlsx") 'Opslaan als..
objExcel.Visible = True 'toon excel
objExcel.DisplayAlerts = FALSE 'Foutmeldingen uitschakelen
objExcel.Cells(1, 1).Value = "foldernaam" 'cellen naam geven
objExcel.Cells(1, 2).Value = "Laatste import" 'cellen naam geven
x = 2 'set de juiste rij in excel
'=====
'opening without any connection info makes
'it "disconnected".
'=====
rs.open
'=====
'load it with file name, date, etc.
'=====
for each frigolanda in folder.SubFolders
if frigolanda = "frigolanda" then
set folderfrigo = fso.getfolder ("\\netko-sbs\data\imports\Frigolanda\")
set colFolders = folder.SubFolders
end if
next
For each
for each f in folder.SubFolders
rs.addnew array("foldername","moddate"), _
array(f.name,f.datelastmodified)
rs.update
next
s = "Sortering van Oud naar Nieuw:" & vbcrlf _
& "=============================" & vbcrlf
if not (rs.bof and rs.eof) then
rs.sort = "moddate asc"
rs.movefirst
do until rs.eof
s = s & rs("foldername") & ";" _
& rs("moddate") & vbcrlf
objExcel.Cells(x, 1).Value = _
rs.Fields("foldername").Value
objExcel.Cells(x, 2).Value = _
rs.Fields("moddate").Value
x = x + 1
rs.movenext
loop
end if
objFile.WriteLine s 'Schrijf waarden naar Excel
Set rs = nothing 'Gooi RS leeg
Set folder = nothing 'Object leegmaken
set fso = nothing 'Object leegmaken
Set objRange = objExcel.Range("A1") 'Selecteer actieve cell
objRange.Activate 'Activeer cell
Set objRange = objExcel.ActiveCell.EntireColumn
objRange.Autofit() 'Set grootte van kolom
Set objRange = objExcel.Range("B1") 'Selecteer actieve cell
objRange.Activate 'Activeer cell
Set objRange = objExcel.ActiveCell.EntireColumn
objRange.Autofit() 'Set grootte van kolom
ObjWorkbook.SaveAs "\\netko-sbs\Data\Imports\output.xlsx" 'Excel bestand opslaan
'objExcel.Quit 'Excel afsluiten als nodig is.
你想得到什么通知?在子文件夹中创建/修改/删除文件时?或者当子文件夹被创建/删除? – Bond 2014-10-07 12:51:01
上次修改文件夹时。这就是我的目标。 – karim 2014-10-07 13:04:15
文件夹如何“修改”?如果文件夹名称更改?如果它添加,删除或更改了文件?如果它有子文件夹添加或删除?试图了解你想要通知什么类型的“修改”。 – Bond 2014-10-07 13:46:45