Re: Totally the general topic in here

Tech Tip: Click here to run a free scan for Windows Errors and optimize PC performance

Dear Claus,

you can also create your own script like the sample shown below.

Arjan

'
' Search.vbs
'

strFolder = "c:\"

Set objFSO = CreateObject("Scripting.FileSystemObject")

Set objFolder = objFSO.GetFolder(strFolder)

ShowFiles(objFolder)

Sub ShowFiles(objFolder)

For Each objFile In objFolder.Files

If Len(objFile.Name) > 60 Then
WScript.Echo objFile.Path & "\" & objFile.Name
End If

Next

For Each objSubFolder In objFolder.SubFolders

ShowFiles(objSubFolder)

Next

End Sub

"cjobes" <cjobes@xxxxxxxxxxxxx> wrote in message
news:ONTfxOHjFHA.1232@xxxxxxxxxxxxxxxxxxxxxxx
> Hi guys,
>
> This is going to be a unique one for this NG. We just got a new client
> that
> created something I haven't come accross before. They have created sub
> dirs
> and file names with somewhere around 150 characters each, running into the
> 255 limit. We need to clean this up and I was wondering if anybody out
> there
> knows a 3rd party tool that will allow a search by lengh of file name
> (i.e.
> search for files that have a name longer than 60 characters).
>
> If we need to do this manually it will take forever.
>
> Thanks,
>
> Claus
>
>


.

Relevant Pages

  • wmi timeout on untactable workstations
    ... I've created the script below, which queries each workstation in a input text file then returns the logged on user to a second text file. ... Set objFSO = CreateObject ... Dim objWMI, colOS, strUsers, objItem ... Sub subCreateResultsFile ...
    (microsoft.public.scripting.vbscript)
  • Re: retrieve text from a text file
    ... Sub StockCount() ... Set objFSO = New FileSystemObject ... Open objFile For Input As KKK ... Cells= ABC ...
    (microsoft.public.excel.programming)
  • Re: Check all files in all subfolders and obtain newest file
    ... Microsoft VBScript runtime error: Object required: 'newfile' ... Set objFSO = CreateObject ... Sub CheckSubFolders ...
    (microsoft.public.scripting.vbscript)
  • Re: open text file function
    ... I have the following sub for opening up a text file for writing. ... Dim objFSO ' File System Object ... Set objFSO = CreateObject ...
    (microsoft.public.scripting.vbscript)
  • Global.asa
    ... Sub Application_OnStart ... Dim objFSO, objFile ... Set objFSO = Server.CreateObject ... Set objFile = objFSO.OpenTextFile ...
    (microsoft.public.inetserver.asp.general)