Batch file to list file path with character longer than 255

Again, I manage to figure out the solution by myself. But I use both batch and vbscript file in order to make this work.

For batch file, write this code and save is as [any name].bat

@echo Please wait untill this window closed :P
@echo off
for /r %%a in (*) do echo %%a >> file_list.txt

For vbscript file, write this code and save is as [any name].vbs

Wscript.Echo "Please wait..."
Set objFS = CreateObject("Scripting.FileSystemObject")
Set objTextFile = objFS.OpenTextFile("C:\Documents and Settings\FIRDHAUS\Desktop\file_list.txt")
Set objFS1 = objFS.CreateTextFile("C:\Documents and Settings\FIRDHAUS\Desktop\file_list_temp.txt",true)
objFS1.close
set objTextFile2 = objFS.OpenTextFile("C:\Documents and Settings\FIRDHAUS\Desktop\file_list_temp.txt",8)
strFile = "C:\Documents and Settings\FIRDHAUS\Desktop\file_list.txt"

Do Until objTextFile.AtEndOfStream
    strLine = objTextFile.ReadLine
    If Len(strLine) > 60 Then
        strLine = Replace(strLine,"",1)
      Else
	objTextFile2.writeline strLine
    End If
   
Loop

Set objTextFile = nothing
Set objTextFile2 = nothing

objFS.copyFile "C:\Documents and Settings\FIRDHAUS\Desktop\file_list_temp.txt", "C:\Documents and Settings\FIRDHAUS\Desktop\file_list.txt", true
objfs.DeleteFile "C:\Documents and Settings\FIRDHAUS\Desktop\file_list_temp.txt"

Set objfs = nothing
Set objfs1 = nothing
Wscript.Echo "Done :)"

Noted that in the vbscript, the path for txt file is not fixed. You have to change it depend on the location of your .txt file.

Copy and paste .bat file into the any root folder that you want and you will get .txt file with numerous list of files with full path :)

Good Luck!