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

MySql variables and php -

-
I am getting an error with php in order to format mysql_query () in php to format this string What is the right way? SELECT SELECT SELECT (*) Agents @AgentCount; User_Agent_English, User_Angent_Oursal, US.___Gent_Aginal, COUNT (User_Agent_Percade) ACC, COUNT (*) / (AgentCount) Percentage by agents user_agent_preser order DEC limit limit 50; In PHP, how am i setting $ query $ query = "SELECT count (*) agents @ agentcount; SELECT user_agent_parsed, User_agent_original , COUNT (user_agent_parsed) ascount, COUNT (*) / (@AgentCount) as a percentage by user_agent_parced by URI date DESC limit 50 "; This exact query will work properly if I put it in MySQL directly through a command line session. Do I need to release two separate php calls from mysql_query () and store the results first? I get the following error: There is an error in your SQL syntax; Instead of using a sub-selection and instead of using the 'SELECT user_agent_parsed, user_agent_original, ne...
Read more

url rewriting - How to implement the returnurl like SO in PHP? -

-
This URL should work even after the rewrite. Is this possible? Otherwise, I can only hardcoded everything If you are trying to create a login system with redirection You need to use the HTTP_REFERER header to find out where the user came from so that you can send it back there. The best way to do this is to use something like this in your login form: // - Login php & Lt; Input type = "password" name = "password" /> & Lt; Input type = "hidden" name = "returnrelale" value = "& lt ;? php echo $ redirectURL ;? & gt;" / & Gt; & Lt; / Form & gt; Please note that some ISP, browser or proxy will delete the referrer header, so you can not rely on each user to work fully. If you use a statement, to check whether the header exists or not, you can send those users back to the homepage or whatever. Edit If you are looking to use $ _SERVER ['REQUEST_URI'], if you are running Apache It sho...
Read more

Which Python client library should I use for CouchdB? -

-
I am starting to experiment with CouchDB because it looks like we have the right solution to certain problems That all the work will be on a new project, which does not have any legacy dependency, which the client library will suggest you use, and why? If we overlap any of the OS. Freeband is available only in the collection of its ports, but asks to use the library's project website. None of those people are Ubuntu, which is only with ships, since those two OSAs are not common in libraries, I am probably installing something from source (and hopefully if I have time, then Ubuntu and FreeBSD People pack the package). For those interests, I want to use CouchDB as a convenient intermediate storage space for data passed between different services - think of a message bus system, but less formalities with. For example, we have daemons that download and pars the web page, then send an interesting bit to other daemons for further processing. Many of them are ill-defined until the...
Read more