The "talk" people are the in the trenches folks... we don't usually win anything - trust me, been there done that...
I LOVE your new favorite quote... I'm going to use that often... :-) Kim Scaccia, System Admin Recovery Reimbursement Patient Business & Financial Services Halifax Medical Center 386-226-4590 opt 1 ext 2018 ________________________________ From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] On Behalf Of Walker, Reese Sent: Thursday, May 22, 2008 8:16 AM To: [email protected] Subject: RE: [Talk] MOVEFILE Thanks for all the replies! I was able to get it to work and automate another once manual process. Anyone on TALK win the iPod? My new favorite quote... "Leave me alone or I will replace you with a really small shell script!" Reese E. Walker Financial Systems Analyst Phoebe Putney Memorial Hospital Phone: (229) 312-4259 ________________________________ From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] On Behalf Of Burgett, Michael E. Sent: Thursday, May 22, 2008 7:47 AM To: [email protected] Subject: RE: [Talk] MOVEFILE Greetings, Here is what I use to archive the source file once I process it. I set these variables: F("File_Save_Path") = The path to the data file (Eg. "C:\Datadirectory\" ) F("GETFILENAME") = The actual file name (Eg. "Datafile.txt") Then this code (using NAME AS) will move the file to the ARCHIVE folder located within the DataDirectory: Name F("File_Save_Path") & F("GETFILENAME") As F("File_Save_Path") & "archive\" & F("GETFILENAME") This simply reads: NAME C:\Datadirectory\Datafile.txt AS C:\Datadirectory\archive\Datafile.txt Michael Burgett Programmer Analyst Information Technology 272 Hospital Road, Chillicothe, OH 45601 Tel: (740)-779-7812 Email: [EMAIL PROTECTED] <mailto:[EMAIL PROTECTED]> From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] On Behalf Of Rodgers Chase Sent: Wednesday, May 21, 2008 6:12 PM To: [email protected] Subject: RE: [Talk] MOVEFILE Here is some code we use to copy a file twice. Once for use by another process. A second time for backup (with date stamp in the file name). Sub CopyDailyReports() ' Dim fso Set fso = CreateObject("Scripting.FileSystemObject") ' 'Gets the TEST.TXT report Set f1 = fso.GetFile("\\NetworkPath\TEST.TXT") ' ' copy and paste the GetFile to a new folder fso.CopyFile "\\NetworkPath\TEST.TXT", "\\NewNetworkPath\TEST.txt" Wait 2 ' 'copy and paste the GetFile to a new folder with date stamp for archive purposes fso.CopyFile "\\NetworkPath\TEST.TXT ", "\\NewNetworkPath\TEST" & Format(f1.DateLastModified - 1, "_mmddyy") & ".txt" Wait 2 ' 'delete file or rem this line out to leave the original file in place fso.DeleteFile "\\NetworkPath\TEST.TXT",True Wait 2 ' Set f1 = Nothing Set fso = Nothing ' End Sub Chase Rodgers Financial Reporting Manager Medical Center of Plano *214-473-7490 [EMAIL PROTECTED] ________________________________ From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] On Behalf Of Walker, Reese Sent: Wednesday, May 21, 2008 04:06 PM To: [email protected] Subject: [Talk] MOVEFILE I cannot get the Move File to work in VB. Once the file has been processed, I need it moved to the archive folder so there is no chance of it being duplicated. This is what I am working wit so far... FileSystemObject.MoveFile("H:\ePremis\Notes\test.txt", "H:\ePremis\Notes\Archive\test.txt") But I have tried different variations. Object.MoveFile("H:\ePremis\Notes\test.txt", "H:\ePremis\Notes\Archive\test.txt") My.Computer.FileSystem.MoveFile("H:\ePremis\Notes\test.txt", "H:\ePremis\Notes\Archive\test.txt") as according to MSDN Any help would be greatly appreciated. Thanks, Reese Reese E. Walker Financial Systems Analyst Phoebe Putney Memorial Hospital Albany, GA. 31702 Phone: (229) 312-4259 Pager: (229) 431-7658 Fax: (229) 312-4316 ________________________________ Disclaimer: The HIPAA Final Privacy Rule requires covered entities to safeguard certain Protected Health Information (PHI) related to a person's healthcare. Information being faxed to you may include PHI after appropriate authorization from the patient or under circumstances that do not require patient authorization. You, the recipient, are obligated to maintain PHI in a safe and secure manner. You may not re-disclose without additional patient consent or as required by law. Unauthorized re-disclosure or failure to safeguard PHI could subject you to penalties described in federal (HIPAA) and state law. If you the reader of this message are not the intended recipient, or the employee or agent responsible to deliver it to the intended recipient, please notify us immediately and destroy the related message. ****************************************************************** This email and any files transmitted with it are proprietary and confidential and intended solely for the use of the individual or entity to whom they are addressed. If you have received this email in error please notify the system manager at [EMAIL PROTECTED] Please note that any views or opinions presented in this email are solely those of the author and do not necessarily represent those of the company. No employee or agent is authorized to conclude any binding agreement on behalf of Adena Health System with another party by email without express written confirmation from Adena Health System authorized individuals. Finally, the recipient should check this email and any attachments for the presence of viruses. The company accepts no liability for any damage caused by any virus transmitted by this email. Adena Health System, 272 Hospital Road, Chillicothe, Ohio, USA, http://www.adena.org ******************************************************************
<<image001.gif>>
