From: WebBiz on

"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

"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


"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
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

"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