Search results for query: *

Bump

Hello, I am trying to remove a series of registry keys using a VBS script but I am unable to delete the keys that have subkeys. Keys that do not have subkeys delete appropriately. Here is the section of code I am working with. ------------------------------- Dim strComputer, objRegistry...

Anyone have any ideas?

Could you please provide me the code on how to do that?

Hello, I use the following macro to help our end users save emails messages as a .msg file in Outlook as an archive on our file server. The issue is that sometimes the Browse dialog box shows up behind Outlook which causes the users to think Outlook is hung. Can someone help me force the Browse...

Bump

Hello, I've created an Outlook Macro that allows a user to selecte an email message, click a button to run my macro, and then select a location to save the email message as a .msg The problem is that I am using the BrowseForFolder command and it does not allow a user to double click a shortcut...

...set objShell = CreateObject("WScript.Shell") set objTextFile = objFSO.OpenTextFile ("C:\Log.txt", ForAppending, True) '**************************************************************** ' FUNCTIONS'***************************************************** function obsoleteDir(strDir, intAge)...

Geates, The output now looks correct but there is a significant amount of false positives (Folders that have been modified within 180 days). Thanks!

Geates, Sorry to be such a pain, but it's getting closer. It is displaying the correct paths now, however it is displaying them multiple times. It appears multiple subsubfolders are causing a log event which logs several of the same folder. The goal is if any file in any of the...

...set objShell = CreateObject("WScript.Shell") set objTextFile = objFSO.OpenTextFile ("C:\AutoCADNEW.txt", ForAppending, True) '**************************************************************** ' FUNCTIONS'***************************************************** function obsoleteDir(strDir...

I've been trying to make the correct modifications, but havent gotten there yet. Thanks for the help. I'll try to explain better. ParentFolder SubFolder1 SubSubFolder1 SubSubFolder2 SubSubFolder3 SubFolder2 SubSubFolder1 SubSubFolder2 SubFolder3...

...set objShell = CreateObject("WScript.Shell") set objTextFile = objFSO.OpenTextFile ("C:\LogNEW.txt", ForAppending, True) '**************************************************************** ' FUNCTIONS'***************************************************** function obsoleteDir(strDir, intAge)...

...set objShell = CreateObject("WScript.Shell") set objTextFile = objFSO.OpenTextFile ("C:\Log.txt", ForAppending, True) '************************************************************************ ' FUNCTIONS'************************************************************************ function...

Hello, I am in need of a script that recursively looks through a folder tree, determines if any files in a subfolder have been modified in the last 180 days, and then logs the subfolder if not. This script will be used for archiving data. Example: Parent Folder SubFolder 1 SubFolder...

Thank you for the reply Geates. I know this must be tough without true testing. Yes, I want to look at the third level as that is the individual project level. Has anything under the third level changed in the last 6 months? If so, skip, if not, log.

Thank you Geates. I've created a new script with your code but there appears to be an issue. It is listing even more subfolders now. Here is the output. ------------------------- Folder | Last Date Modified | Last Date Accessed F:\CAD\00\2D CAD Blocks\People | 9/22/2009 4:47:18 PM | 9/22/2009...

Thank you Geates. I do appreciate your work. I made the change but have a question on the output. -------- OUTPUT Folder | Last Date Modified | Last Date Accessed F:\CAD\03\M145137\Walker River\dwg | 9/22/2009 4:49:25 PM | 9/22/2009 4:49:25 PM F:\CAD\04\M027106\DWG\FINAL SET | 9/22/2009...

...then strRecent = objFile.Path end if next findRecentFile = strRecent end function intAge = 180 '30 days * 6 months strSource = "F:\CAD" Set objFSO = CreateObject("Scripting.FileSystemObject") Set objFile = objFSO.CreateTextFile("C:\Users\aWeisz\Desktop\Log.txt") Const...

Geates, Sorry to bother you again but I found a gotcha when I moved the script to the production environment. In our production environment we have a parent folder and then subfolders below. The subfolders contain the projects so the script needs to check the folders in each subfolder and...