To get the # of Files you’ll need a FileSystem Object and a Folder Object

 

    Dim fsObj As New FileSystemObject

    Dim fldObj As Folder

   

    '--------------------------------------------------

    'Create the file system object and get the folder

        On Error GoTo ErrHandle

    '--------------------------------------------------

        Set fldObj = fsObj.GetFolder("c:\Windows")

        MsgBox fldObj.Files.Count

        GoTo CleanUp

ErrHandle:

    MsgBox Err.Description, vbInformation, "Unexpected Error"

CleanUp:

    Set fsObj = Nothing

    Set fldObj = Nothing


From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] On Behalf Of Bates, Bradley M.
Sent: Friday, February 18, 2005 3:38 PM
To: [email protected]
Subject: RE: [Talk] Blocking and Deleting Text in a Windows Text Box

 

I'm not sure if you found a resolution to this, but I believe the problem is ...

Key "{+END}"

... should read ...

Key "+{END}"

 

 

-----Original Message-----
From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]On Behalf Of Mitchell, Sherry
Sent: Thursday, December 09, 2004 15:47
To: [email protected]
Subject: [Talk] Blocking and Deleting Text in a Windows Text Box

I can't get the following to highlight the character string so that the delete will delete the whole string not just the first character  ...  (OS is Windows 2000/ Service Pack 4, latest BostonWorkStation 7.0  if that might make a difference!). 

 

Key "{HOME}"

Key "{+END}"

Key "{DELETE}"

 

I'm also wondering how, when using FileSystemObject code (which I had tremendous help in setting up!!!),  to get a count of the number of files in the folder ???

 

 

thanx in advance!!!,  sherry

HCA Midwest Division IT&S

816/823-0406

 

 

Reply via email to