Stuart McLachlan
stuart at lexacorp.com.pg
Wed Apr 28 23:23:23 CDT 2004
On 28 Apr 2004 at 18:37, Mitsules, Mark S. (Newport Ne wrote:
> I have been tasked with performing some webserver cleanup. Any
> recommendations for a no-cost tool that performs automatic renaming of files
> (i.e. remove all spaces)?
MS Access? Something like:
Function Cleanup(directory as string) as long
Dim strFilename as String
Dim strFilename2 as String
ChDir Directory
strFilename = Dir(directory)
While strFilename > " "
StrFilename2 = Replace(strFilename," ","")
If srtFilename2 <> strFilename Then
Name strFilename As strFilename2
End
strFilename = Dir$()
Wend
End Function
>Does such a tool exist that would also update the
> HTML as well?
Same sort of thing.
Open the HTML document, Read it into a string variable and manipulate
the string using Replace() or whatever is required.
--
Lexacorp Ltd
http://www.lexacorp.com.pg
Information Technology Consultancy, Software Development,System
Support.