Question : Looping


Since its now working for a single loop, how do i amend the code to make it look for multiple file names of the same name with different file extensions.  Tried your original idea but got stuck in endless loop.

Private Sub Command114_Click()
Dim rst As DAO.Recordset
    Set rst = CurrentDb.OpenRecordset("SELECT FileName FROM qry_DocumentRegister_Redundant")
    Do Until rst.EOF
    Dim strFileName As String
    Dim FName As String
    FName = rst("FileName")
    strFileName = Dir("f:\Test Directory\Live\" & FName & "*.*")
        If strFileName <> "" Then '/the file exists
            Name "f:\Test Directory\Live\" & strFileName As "f:\Test Directory\Archive\" & strFileName
        End If
End Sub

Answer : Looping

The dumps could also be located in>

Absence of a Minidump could also be due to deteriorating motherboard capacitors, or a flakey power supply.
See >>

You may also be getting a total crash before Windows has a chance to produce a crash dump.  From the 2nd computer you may be able to scan the Hard disk for errors running the command chkdsk /r
....but you need first to backup any valuable data!

Then you could also try the appropriate HD diagnostic from here>
"Hard Drive Diagnostics Tools and Utilities":

Normally if you see no minidump you could checkout the settings here>
Enable Minidump's in Windows XP:
Random Solutions  
programming4us programming4us