How to list long file names and paths longer than 260 characters in vbscript?

Question

Hi there,
               I have looked in different posts and forums, but couldn't find an answer to my question.
So, here it is... imagine the small piece of code attached below. I need to be able to iterate and rename recursively (I didn't include the recursive part of the code in order to keep things simple) through files and folders in an user selected path. I thought that by using vbscript FileSystemObject I would be able to do so.
Unfortunately, it seems like the Files method does not detect files whose path is larger than the OS 260 (or 256?) character limit. How could I do it so? Please, don't tell me to use something different than vbscripts :-)
Thanks in advance!
Set FSO = CreateObject("Scripting.FileSystemObject")
Set objFolder = FSO.GetFolder(Path)
Set colFiles = objFolder.Files
For Each objFile In colFiles
Wscript.Echo "File in root folder:" & objfile.Name
Next

Answer 1

Yes, that describes the problem, but not the solution - short of changing the names of the folders. There is another solution.  That is, to map a logical drive to the folder so that the path to subfolders and files is shortened.  Here is a procedure that offers a scripted approach that I use to map folders with long names to a drive letter and then opens a console window at that location ...
Dim sDrive, sSharePath, sShareName, aTemp, cLtr, errnum
Const sCmd = "%comspec% /k color f0 & title "
Const bForce = True
if wsh.arguments.count > 0 then
  sSharePath = wsh.arguments(0)
  aTemp = Split(sSharePath, "\")
  sShareName = aTemp(UBound(aTemp))
  cLtr = "K"
  with CreateObject("Scripting.FileSystemObject")
    Do While .DriveExists(cLtr) and UCase(cLtr) <= "Z"
      cLtr = Chr(ASC(cLtr) + 1)
    Loop
  end with
  sDrive = cLtr & ":"
Else
  sDrive = "K:"
  sSharePath = "C:\Documents and Settings\tlavedas\My Documents\Script\Testing"
  sShareName = "Testing"
end if
with CreateObject("Wscript.Network")
  errnum = MakeShare(sSharePath, sShareName)
  if errnum = 0 or errnum = 22 then
    .MapNetworkDrive sDrive, "\\" & .ComputerName & "\" & sShareName
    CreateObject("Wscript.Shell").Run sCmd & sDrive & sShareName & "& " & sDrive, 1, True
    .RemoveNetworkDrive sDrive, bForce
    if not errnum = 22 then RemoveShare(sShareName)
  else
    wsh.echo "Failed"
  end if
end with
function MakeShare(sSharePath, sShareName)
Const FILE_SHARE = 0
Const MAX_CONNECT = 1
  with GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2")
    with .Get("Win32_Share")
      MakeShare = .Create(sSharePath, sShareName, FILE_SHARE, MAX_CONNECT, sShareName)
    end with
  end with
end function
sub RemoveShare(sShareName)
Dim cShares, oShare
  with GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2")
    Set cShares = .ExecQuery _
      ("Select * from Win32_Share Where Name = '" & sShareName & "'")
    For Each oShare in cShares
      oShare.Delete
    Next
  end with
end sub
The SHARE that must be created for this to work is marked as having only one connect (the calling procedure).  The mapping and share is automatically removed when the console window is closed.  In the case cited in this posting, this approach could be applied using the subroutines provided so that the user's script creates the share/mapping, performs its file operations and then removes the mapping/share.  Ultimately, it might be more useful to change the folder structure, as suggested in the KB article, since working with the created folders and files will still be problematic - unless the drive mapping is in place.Tom Lavedas