Solved

File Renaming Issue

Posted on 2008-10-07
9
208 Views
Last Modified: 2013-11-27
Scenario:

Directory full of Word Files that have patient dictation that is transcribed by centralized transcription.  I want to import the text into another MS SQL database.  I am accomplishing this using an Access DB intermediary, because I am most familiar with this.

My problem is that I want to rename each file once it has been imported so I don't have to re-import each time and then check for duplicates.  I wrote that routine and it is awfully slow!!!!

Here is the code that I have so far.  You will see that the rename is comm'ed out since it gives me an error.

Any help is appreciated.

Troyo
Public Function Grabdata()

Dim wdDoc As Word.Document

    Dim cn As New ADODB.Connection

    Dim rs As New ADODB.Recordset

    Dim F

    Dim A

    

    Dim strPath As String

    

    

    Set wdDoc = Nothing

    Set wdApp = Nothing
 

    Dim strFile As String

    Dim myFullFile As String

    strPath = "X:\Shared\WPCWW\"

    strFile = Dir(strPath, vbDirectory)

    Do While strFile <> ""

    If strFile <> "." And strFile <> ".." Then

     

    'MsgBox "got this far"

     

    '************* Start Repeating Section ***************

    Set wdApp = New Word.Application

    wdApp.Visible = False

    myFullFile = strPath & strFile

    'MsgBox strPath & strFile

        

    Set wdDoc = wdApp.Documents.Open(myFullFile)
 

    
 

    DoCmd.OpenForm "frmImport", acNormal, , , acFormAdd

    

    

    Forms!frmImport![Dict] = wdDoc.Range.Text

    wdApp.Quit

    DoCmd.Close acForm, "frmImport"

    

    

    

    MsgBox "pause"

    

    

    myFullFile1 = strPath & "*" & strFile

    

    

    'Name myFullFile As myFullFile1

    
 

        'Kill myFullFile

    End If

    strFile = Dir()

    'MsgBox strFile

    

    Loop

End Function

Open in new window

0
Comment
Question by:toverholt
  • 5
  • 4
9 Comments
 
LVL 119

Expert Comment

by:Rey Obrero
ID: 22660003
don't use a wild character as part of your file name

'   myFullFile1 = strPath & "*" & strFile   '<< this is the one giving errorthe
     
    myFullFile1 = strPath & "Imp_" & strFile

    'Name myFullFile As myFullFile1
0
 

Author Comment

by:toverholt
ID: 22660502
Tried that...  Great idea by the way....

Gives me a Path/File Error.

0
 
LVL 119

Expert Comment

by:Rey Obrero
ID: 22660569
then check your path ? is it correct

msgboxt myFullFile &" > " & myFullFile1
0
 

Author Comment

by:toverholt
ID: 22660688
Changed to:

 myFullFile1 = "X:\Shared\WPCWW\Imported\aaa_" & strFile
   
    MsgBox myFullFile & " > " & myFullFile1
   
    Name myFullFile As myFullFile1
   


This works.  If I comment out the msgbox line, it errors.  Is this a lag issue with processing? Any way I can add a pause, so I don't have to hit enter 2000 times?

Also, I chose to move to a seperate directory as well.  I may not change the name, but just move the file.

Troyo
0
Why You Should Analyze Threat Actor TTPs

After years of analyzing threat actor behavior, it’s become clear that at any given time there are specific tactics, techniques, and procedures (TTPs) that are particularly prevalent. By analyzing and understanding these TTPs, you can dramatically enhance your security program.

 
LVL 119

Expert Comment

by:Rey Obrero
ID: 22660757
do you have the folder Imported created?
X:\Shared\WPCWW\Imported\

if you want to move the file, use

filecopy  sourcePath & strFile, destinationPath & strFile
0
 

Author Comment

by:toverholt
ID: 22660802
Changing back to original plan of renaming


    myFullFile1 = "X:\Shared\WPCWW\aaa_" & strFile
   
    MsgBox myFullFile & " > " & myFullFile1
   
    Name myFullFile As myFullFile1
   

Works with MsgBox not without it.

Troyo
0
 

Author Comment

by:toverholt
ID: 22661766
Works Most of the Time with the msgBox statement in there.  It must be a timing issue waiting for Word to close.
0
 
LVL 119

Accepted Solution

by:
Rey Obrero earned 500 total points
ID: 22661833
place this codes in a regular module

option compare database
option explicit

Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)




___________


myFullFile1 = "X:\Shared\WPCWW\aaa_" & strFile
   
   sleep 1000  ' just modify the value
   
    Name myFullFile As myFullFile1

0
 

Author Closing Comment

by:toverholt
ID: 31503852
Thanks for your continued help via dialogue.
0

Featured Post

Highfive + Dolby Voice = No More Audio Complaints!

Poor audio quality is one of the top reasons people don’t use video conferencing. Get the crispest, clearest audio powered by Dolby Voice in every meeting. Highfive and Dolby Voice deliver the best video conferencing and audio experience for every meeting and every room.

Join & Write a Comment

When you are entering numbers in a speadsheet, and don't remember what 6×7 is, you just type “=6*7" instead. It works in every cell! This is not so in Access. To enter the elusive 42 in a text box, you have to find a calculator, and then copy the re…
I see at least one EE question a week that pertains to using temporary tables in MS Access.  But surprisingly, I was unable to find a single article devoted solely to this topic. I don’t intend to describe all of the uses of temporary tables in t…
In Microsoft Access, learn how to use Dlookup and other domain aggregate functions and one method of specifying a string value within a string. Specify the first argument, which is the expression to be returned: Specify the second argument, which …
In Microsoft Access, when working with VBA, learn some techniques for writing readable and easily maintained code.

744 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

9 Experts available now in Live!

Get 1:1 Help Now