Partyflock
 
Forumonderwerp · 669808
iemand die dit kan. ik niet :D
maar ik moet een script hebben dat kijkt naar de datum van bestanden, als het bestand ouder is dan 7 dagen dan moet het script een actie doen.
De actie is dat het script kijkt naar de eigenaar van het bestand en hem dan een mailtje stuurt. Nu zal dat mailen enzo wel lukken. Het grootste probleem op dit moment is dat ik niet iets kan schrijven dat kijkt naar hoeveel dagen het bestand oud is. kan iemand dit? weinig kans, maar goed.
Dim fso,f
Set fso = CreateObject("Scripting.FileSytemObject")
set f = fso.GetFile(padnaarfile)
datumgemaakt= f.DateCreated

das al 1 ;)
Hmm, wij mogen hier jouw schoolopdrachten gaan maken? :S
naja ik ben vbscripter op werk dus was poepie :)
haha zit op me stage.. en neem maar van mij aan dat ik zoveel mogelijk zelf er achter probeer te komen hoe het werkt.

uiteindelijk ben ik al heel eind.
Zoals V3git4 ook heeft geschreven

Set fso = CreateObject("Scripting.FileSystemObject")
Set objFolder = fso.GetFolder("C:\temp")
For Each aFile In objFolder.Files
Wscript.Echo aFile.DateCreated
Dmod = aFile.DateCreated
Wscript.Echo Date

die Dmod is voor verderop in het script. hij kijkt naar creation date en date van vandaag en als het verschil 7 dagen is moet hij een mailtje sturen. mailtje stuurt hij ook alleen moet het mailtje naar de eigenaar van het bestand gaan. er is een manier om de eigenaar te achterhalen, die moet ik in en variabele zetten en de inhoud van de variabele is ook het email adres ( variabele@bedrijf.nl )
er is alleszins geen functie voor "File" die dit kan. Kan je de username niet verwerken in naamgeving van het bestandje? Of als eerste lijn zetten in het bestandje? Ik zeg maar wat...
http://support.microsoft.com/?scid=kb;en-us;Q218965

how to obtain the owner of a file

lekker lang. maar zie jij waar ik in kan stellen naar welke file hij moet kijken? uiteindelijk moet hij naar alle files in een map kijken.
nja er staat vanboven "The following sample code retrieves the owner of the file notepad.exe, which is located in the default Windows folder.
"

ben ff txtje inéén aant steken
ow oke.
hier vond ik nog een script. dees scanned hoeveel bestanden er in de folder staan, dan zegt hij 'checking ownership' maar dan issie afgelopen.

http://www.tek-tips.com/viewthread.cfm?SQID=748308&SPID=329&newpid=329&page=1
heb wat liggen denke maar niets getest ofzo

http://users.skynet.be/BikerBoy/dno.txt
thnx
zal er eens mee klooien. wel moeilijk maar goed.
DJniven.... Zonder dat ik die erro's zie weet ik niet echt what 2 do. Kan het niet testen op mn normale werk pc omdat ik hier in een bank zit en geen gegevens mag overdragen van mn laptop naar bank netwerk :s dusja
oke np :d
kan jij me uitleggen wat functions nou precies doen? stel ik heb een script dat verschillende opdrachten uitvoerd, kan ik dan met een function een opdracht ertussen zetten ofzo? en is dat net zo iets als Sub ofzo?
ik heb dat script, en ik wil een simpele regel er tussen krijgen als Wscript.Echo ("blaat") en dat moet met functions zegt iemand hier :S
het verschil tussen een function en een sub is dat een function een return waarde geeft

bv:
Function telop(waarde)
telop = waarde + waarde
end function

'dan achteraf
uitkomst = telop(1)
'is dan 2