Solved

Delete word documents by VBA

Posted on 2004-10-08
10
377 Views
Last Modified: 2008-02-01
Hi,

I have access application does sorting records and then export and open them in word. Every time I export the records it will create a new file name myFile 1, myFile 2 and so on...My question is how can I delete all the documents after I'm done with them that include the one that not opening as well as opening. I assigned them in a folder called C:\myFolder. Is it possible to create a command to do all of that?

Thanks in Advance
Andrew  
0
Comment
Question by:ishadowme
  • 5
  • 4
10 Comments
 
LVL 41

Accepted Solution

by:
shanesuebsahakarn earned 50 total points
ID: 12264216
To delete all .doc objects in a folder:

Kill "C:\MyFolder\*.doc"
0
 

Author Comment

by:ishadowme
ID: 12264384
Hi,

Shane, that works fine on all the files that not opening but it will have permission error when some files still open.

Thanks for your reply.
Andrew
0
 
LVL 41

Expert Comment

by:shanesuebsahakarn
ID: 12264392
You'll have to close the ones that you have open first. You cannot delete open Word documents. If you want to just delete the ones that are not opened, either trap for the error or skip it:

On Error Resume Next
Kill ...
0
 

Author Comment

by:ishadowme
ID: 12264515

Shane,

It there a way to close all opening files at once?
0
 
LVL 41

Expert Comment

by:shanesuebsahakarn
ID: 12264522
Depends...how did you open them? Manually, or by using code?
0
Enterprise Mobility and BYOD For Dummies

Like “For Dummies” books, you can read this in whatever order you choose and learn about mobility and BYOD; and how to put a competitive mobile infrastructure in place. Developed for SMBs and large enterprises alike, you will find helpful use cases, planning, and implementation.

 

Author Comment

by:ishadowme
ID: 12264539
I opened them by VBA
0
 
LVL 41

Expert Comment

by:shanesuebsahakarn
ID: 12264549
Please post the code that you have used.
0
 

Author Comment

by:ishadowme
ID: 12264568
Shane,

Here is my code:

Dim rsFinalResults As DAO.Recordset
Dim wrdApp As Word.Application
Dim wrdDoc As Word.Document
Dim strCopyFile As String
Dim counter As Integer
Dim i As Integer
Dim sql As String

    counter = 1
   
    If Dir$("c:\myFolder", vbDirectory) = "" Then
        MkDir "c:\myFolder"
    End If
   
    If Dir$("C:\myFolder\myFile " & counter & ".txt") = "" Then
        strCopyFile = "C:\myFolder\myFile " & counter & ".txt"
    Else
        Do Until Dir$("C:\myFolder\myFile " & counter & ".txt") = ""
                counter = counter + 1
                strCopyFile = "C:\myFolder\myFile " & counter & ".txt"
        Loop
    End If
   
    Open strCopyFile For Output As #1
   
    sql = "SELECT * FROM tblfinalResults " & "ORDER BY FinalResults"
   
    Set rsFinalResults = CurrentDb.OpenRecordset(sql)
       
        rsFinalResults.MoveFirst
           
       
        Do While Not rsFinalResults.EOF
             Print #1, rsFinalResults!FinalResults;
            rsFinalResults.MoveNext
        Loop

        Close #1

    Set wrdApp = CreateObject("word.Application")
    wrdApp.Visible = True
    wrdApp.Documents.Open strCopyFile

    txtStart.SetFocus
    cmdCopy.Enabled = False

    rsFinalResults.Close
    Set rsFinalResults = Nothing
   
End Sub
0
 
LVL 9

Assisted Solution

by:Bat17
Bat17 earned 75 total points
ID: 12277493
Set wrdApp = GetObject(, "word.Application")

wrdApp.Documents.Close False
wrdApp.Quit
Set wrdApp = Nothing

Should close ALL open word documents without saving them.

Peter
0
 

Author Comment

by:ishadowme
ID: 12282159
Hi,

Thanks for your comments. Actually my goal is only closing those files are opened by this code, other documents still need to be opened. By using your codes and modify a bit I can make it work now.

Andrew
0

Featured Post

Ransomware-A Revenue Bonanza for Service Providers

Ransomware – malware that gets on your customers’ computers, encrypts their data, and extorts a hefty ransom for the decryption keys – is a surging new threat.  The purpose of this eBook is to educate the reader about ransomware attacks.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

It took me quite some time to sort out all the different properties of combo and list boxes available from Visual Basic at run-time. Not that the documentation is lacking: the help pages are quite thorough and well written. The problem was rather wh…
Introduction The Visual Basic for Applications (VBA) language is at the heart of every application that you write. It is your key to taking Access beyond the world of wizards into a world where anything is possible. This article introduces you to…
As developers, we are not limited to the functions provided by the VBA language. In addition, we can call the functions that are part of the Windows operating system. These functions are part of the Windows API (Application Programming Interface). U…
In Microsoft Access, learn how to “cascade” or have the displayed data of one combo control depend upon what’s entered in another. Base the dependent combo on a query for its row source: Add a reference to the first combo on the form as criteria i…

895 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

14 Experts available now in Live!

Get 1:1 Help Now