Search entire computer before opening file

Thread view:

Enable EMail Alerts

Start New Thread

Thread rating:

pswanie - 17 Mar 2008 20:09 GMT

hi..

i got this to open a workbook. in it i tell it where to look for the
workbook. i would however like it to go and look on the entire system for
it...(including removeble drives etc..) i use it on about 14 branches and the
users (for out of stupidity?) go and move my file.....!!! thanx

The file from what the macro run is called inventry.xls

the two should be in the folder inventry. but from time to time they move
the inventry.xls to for example the desktop.

(if it can.... first look in outlook if there is a email with a attachment
with the name ghostINVENTRY.xls and then the entire system)

Phillip

************************************************************

Workbooks.Open Filename:= _
"C:\maykent\inventry\ghostinventry.xls"
************************************************************

Reply to this Message

Jim Thomlinson - 17 Mar 2008 21:16 GMT

While that is possible it may not be what you really want to do... A full
scan of your computer could take a VERY long time. Additionally if you have
copies fo the at file archived it is going to find those. How about if it
does not find the file you are looking for it opens the File Open dialog???

dim wbkFound as workbook

on error resume next
set wbkFound = Workbooks("Inventry.xls")
If wbkFound is nothing then
set wbkFound Workbooks.Open Filename:= _
"C:\maykent\inventry\ghostinventry.xls"
end if
If wbkFound is nothing then
Application.Dialogs(xlDialogOpen).Show
end if

Signature

HTH...

Jim Thomlinson

> hi..
>
[quoted text clipped - 18 lines]
> "C:\maykent\inventry\ghostinventry.xls"
> ************************************************************

Reply to this Message

pswanie - 17 Mar 2008 21:25 GMT

it only needs to look in for example the following locations
outlook
c:\maykent
desktop

(in that order) i ocasionaly email the new/updated workbook called
ghostINVENTRY.xls

i will give that a shot in the morning

will let u know.

> While that is possible it may not be what you really want to do... A full
> scan of your computer could take a VERY long time. Additionally if you have
[quoted text clipped - 35 lines]
> > "C:\maykent\inventry\ghostinventry.xls"
> > ************************************************************

Reply to this Message