RE: [Talk] ShowFolderFileCount was Blocking and Deleting Text in a Windows Text Box

[Turner, Peter]

Title: Message

Actually the "as string" probably won't work with pure vbscript - just leave it of and pass a string:

 

msgbox ShowFolderFileCount( "C:\BostonWorkStation")

 

I'll leave error checking code to your imagination.

-----Original Message-----
From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] On Behalf Of Turner, Peter
Sent: Thursday, December 09, 2004 5:31 PM
To: [EMAIL PROTECTED]
Subject: RE: [Talk] ShowFolderFileCount was Blocking and Deleting Text in a Windows Text Box

I have used this:

 

Function ShowFolderFileCount(FolderName As String)
  Dim FileSystemObject
  Dim Folder
  Dim Files
  Set FileSystemObject = CreateObject("Scripting.FileSystemObject")
  Set Folder = FileSystemObject.Getfolder(FolderName)
  Set Files = Folder.Files
  ShowFolderFileCount = Files.Count

End Function

 

But sometimes the numbers are off a bit - usually in something like a WINNT folder that has some weird files

 

Google "Microsoft Windows Script 5.6 Documentation" for more documentation on scripting there is a Required Reading help file for scripting & FSO details.

 

Peter Turner
Fort HealthCare
(920) 568-5137

 

 

-----Original Message-----
From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] On Behalf Of Mitchell, Sherry
Sent: Thursday, December 09, 2004 4:47 PM
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