events - How do I know when a file has been modified in a VBA Macro? -

-

Is there a way to view the file in VBA (which is essentially VB6), so that I know the file When has it been modified? - Only when I do not want to know about its modified , a file is unused .

I have recommended using the "FileSystemWorld" and the Win32 API "FindFirstChangeNotification". I can not understand how to use them, however, any thoughts?

OK, I work together to find out which file system changes in VBA (VB6) Enabled. The public objWMIService, colmonitoredEvents, objEventObject 'every 1 second call for changes' sub clock (error) timed out on GoTo if objWMIService is nothing then once again initWatch 'Once init' right Set the objEventObject = colmonitoredEvents.NextEvent (1) '1 msec timeout if no events' messagebox' event found "Select episode objEventObject.Path_.Class case" __InstanceCreationEvent "MsgBox" A new file was just created: "& Amp; _ ObjEventObject.TargetInstance.PartComponent case "__InstanceDeletionEvent" MsgBox "A file was deleted now:" & amp; ; _ ObjEventObject.TargetInstance.PartComponent case "__InstanceModificationEvent" MsgBox "A file was just modified:" & ObjEventObject.TargetInstance.PartComponent End Select loop exit sub timeout: if trim (error source) = "SWbemEventSource" And trim (error description) = "Time has expired" then MsgBox "There are no events in the last 1 second" Other message "If you copy and paste this sub near above, it is called automatically, If necessary to start Global Wars .

sub InitWatch () Error GoTo initerr Dim as the integer on watchSecs, watchpath string as watchchek = 1 'watchpath =' c: \\\ "Seconds" behind the \ 'scripts \' "StComputer =" to see the changes in this DIR. " ObjWMIService = GetObject (set "winmgmts: \\" & amp; strComputer & amp; "\ root \ cimv2") Set ColMonitoredEvents = objWMIService.ExecNotificationQuery_ ("SELECT * FROM __InstanceOperationEvent within" & amp; clockCAC and "WHERE "_ & Amp; Targetinstance ISA 'CIM_DirectoryContainsFile' and" _ & amp; "TargetInstance.GroupComponent =" _ & "Win32_Directory.Name =" "c: \\\\ Script" "') MsgBox" init done "out Exit sub initerr: MsgBox "Error during Init -" & amp; Err.Source & amp; "-" & amp; Err.Description End sub

Comments

Post a Comment

Popular posts from this blog

asp.net - Javascript/DOM Why is does my form not support submit()? -

-
This is my first time working with asp.net and javascript, so I do not know very good web resources, or Much about javascript debugging I have to find out that on line oFormObject.submit (); Microsoft JScript Runtime Error: Object does not support this property or method I am using the link to work as a button because I am terrible in aesthetics and I think That link will look more professional than a table of 50 buttons. I have read that this solution can cause problems with browsers due to pre-rendering of my links and many additional traffic and problems, but CSS gives me a button like a link, which has issues of alignment and difference seemed to. & lt ;! DOCTYPE HTML PUBLIC "- // W3C // DTD HTML 4.01 // N" "http://www.w3.org/TR/html4/strict.dtd"> & Lt; Html xmlns = "http://www.w3.org/1999/xhtml" & gt; & Lt; Head & gt; & Lt; Link rel = "stylesheet" type = "text / css" href = "defect differen
Read more

sockets - Delphi: TTcpServer, connection reset when reading -

-
I am trying to implement one for Delphi, but there are some problems with communication. Fitnesse will start my process, and give me a portmember as a command line argument. Then I should make a socket on the port number given to me, and fitness will connect to that port I am using a TCPCP server for the job: < Pre> TcpServer1.LocalPort: = ParamStr (ParamCount); TcpServer1 Active: = true; On OnEXEPT () -Event, I send the protocol version to use as specified in the protocol. Process TForm1.TcpServer1Accept (From: TOBject; ClientSocket: TCustomIpClient); Var s: ansistring; Start clientSocket. Syndrome ('slim - v 0.0', # 10); SetLength (S, 6); ClientSketts Receavebook (S, 6); End; When I call ReceiveBuf (), the process ends, and fitness throws an exception: java.net.SocketException: connection Reset I have seen what sent and received. It shows that my code sends the protocol version, fitness sends back a message, and when I try to get this message
Read more

javascript - Classic ASP "ExecuteGlobal" statement acting differently on two servers -

-
I have a strange problem that I really do not know. In addition to developing a new ASP.NET site, I have to support the old "classic ASP" site. It is written in VBScript with a batch of JavaScript functions. Many of the JavaScript functions include 'files' Everything is fine on our production system (which security is controlled by another group - this is a military installation) Debugging them once did not work I). However, I have a fix for a vague bug that needs to be fully tested and some functions do not run under the "local" copy of the website that runs on my PC. For the record, I am running IIS 5.1 on XP. The problem is that some Javascript functions are running "OK" on the production server, but when they use it as a server, they are not defined on my PC what is happening that last Programmer, for some reason, has decided to put some functions in a series of files, which according to the observations, imitate the "need_once
Read more