From: WebBiz on 5 Oct 2006 19:41 "Richard Cole" <ispcrco(a)hotmail.com.invalid> wrote in message news:ofrai21mkritp06nopqcs949i4k88dr7ko(a)4ax.com... > On Thu, 5 Oct 2006 14:48:05 -0500, "WebBiz" <justask(a)andyouwillget.com> > wrote: >>That Virtual PC looks pretty cool. >> >>Not sure I want to double-install the same application on one PC though. >>But >>it's an option. > Rick > > The Virtual installation does take up a bit of space on your hard disk, > but > if you copy it you have a 'virgin' OS to install stuff on then you can > just > blow it away and restore the copy. > On this system, Win 95 takes 546Mb, Win 98SE the same, Fedora 2.5 GB (full > install) and Xandros 2.1Gb, so provided you have the disk space available, > and heaven knows it's cheap enough, you can have a lots of OS's installed. > > Richard > Web pages: http://www.caravanningnow.co.uk/ - caravanning, > http://www.rcole.org/ - personal web site and > http://www.homeindorset.co.uk > because I loves the domain name for email. > -- > 'I mean ... well you know what people call men who wear wigs and gowns, > don't > you?' 'Yes, miss. Lawyers, miss.' - The Fifth Elephant by Terry Pratchett Richard, I'm confused on what you mean by "if you copy it you have a 'virgin' OS'. "Copy it", as opposed to "installing it"? Not sure if that is what you mean. Also, what do you mean by "blow it away and restore the copy"? Looks like this Virtual PC will allow you to install Linux also, if I follow what you wrote here. That would be cool as well. Thanks. Rick
From: WebBiz on 5 Oct 2006 19:46 "BeastFish" <no(a)spam.com> wrote in message news:eg3ue7$j62$1(a)emma.aioe.org... > "WebBiz" <justask(a)andyouwillget.com> wrote in message > news:HN9Vg.20549$2g4.7197(a)dukeread09... > >> The scrrun.dll is referenced because I'm using the function >> DirectoryExists(). >> >> What would be a good alternative? > > > Depends on what you're using it for. Do you need for it to determine not > only if the entity exists but also if the existing entity is in fact a > directory and not a file? > > Regardless, you can make your own function named "DirectoryExists" that > uses > GetAttr, trapping the error. How robust or flexible you make it is up to > you. > Public Function DirectoryExists(Dir As String) As Boolean Dim oDir As New Scripting.FileSystemObject DirectoryExists = oDir.FolderExists(Dir) End Function It is to see if the DIRECTORY exists.
From: WebBiz on 5 Oct 2006 19:53 "mayayana" <mayaXXyana1a(a)mindXXspring.com> wrote in message news:3bgVg.3643$Lv3.1653(a)newsread1.news.pas.earthlink.net... >> The scrrun.dll is referenced because I'm using the function >> DirectoryExists(). >> >> What would be a good alternative? >> > I assume you mean FSO.FolderExists. > > You can use the following. It just so happens > that I got it from the PDW code: > > Public Function FolderExists(ByVal sPath As String) As Boolean > On Error Resume Next > FolderExists = (GetAttr(sPath) And vbDirectory) = vbDirectory > Err.Clear > End Function > Thanks. It appears I already had a "FolderExists" as well. Found it when I got an 'ambiguous' function name error after pasting this code. LOL! I've removed the DirectoryExists function. Can't recall where I got that snippet. But now I the 'MS Scripting' reference has been removed. Thank you. :-) Rick
From: J French on 6 Oct 2006 03:06 On Thu, 5 Oct 2006 18:46:06 -0500, "WebBiz" <justask(a)andyouwillget.com> wrote: <snip> >Public Function DirectoryExists(Dir As String) As Boolean > Dim oDir As New Scripting.FileSystemObject > DirectoryExists = oDir.FolderExists(Dir) >End Function > >It is to see if the DIRECTORY exists. Function DirExists(ADir$) As Boolean Dim Q% On Error Resume Next Q = GetAttr(ADir$) If Err = 0 Then If (Q And vbDirectory) = vbDirectory Then DirExists = True End If End If Err.Clear End Function Also you can get rid of the COMDLG OCX by using the APIs directly It might be worth checking out : www.molebox.com You should be able to create one standalone EXE with it
From: WebBiz on 6 Oct 2006 13:13
"J French" <erewhon(a)nowhere.uk> wrote in message news:4525ffb3.56704623(a)news.btclick.com... > On Thu, 5 Oct 2006 18:46:06 -0500, "WebBiz" > <justask(a)andyouwillget.com> wrote: > > <snip> > >>Public Function DirectoryExists(Dir As String) As Boolean >> Dim oDir As New Scripting.FileSystemObject >> DirectoryExists = oDir.FolderExists(Dir) >>End Function >> >>It is to see if the DIRECTORY exists. > > Function DirExists(ADir$) As Boolean > Dim Q% > On Error Resume Next > Q = GetAttr(ADir$) > If Err = 0 Then > If (Q And vbDirectory) = vbDirectory Then > DirExists = True > End If > End If > Err.Clear > End Function > > Also you can get rid of the COMDLG OCX by using the APIs directly > > It might be worth checking out : www.molebox.com > > You should be able to create one standalone EXE with it Oh cool. It would be just like Delphi, eh JF? I'm reading the site now. Thanks! :-) Rick |