Foro de elhacker.net

require 'find'
 
def dirComp(dir)
	Dir.chdir(dir)
	puts dir
	Find.find(dir) do |path|
		if(path.to_s.length > 256)
			print "#{path} ... ||ERROR: Path mayor a 255 caracteres||\n"
			print "Desea renombrar el archivo (s/n): "
			op = gets.chomp.to_s
			if (op == 's')
				print "Escriba el nuevo nombre para el archivo: "
				name = gets.chomp.to_s
				oldName = cutPath(path)
				File.rename(path, oldName + name)
			else next 
			end
		else puts "#{path} ... |OK|"
		end
	end
end
 
def cutPath(path)
	index = -1
	tmpVar = 0
	while (tmpVar != 1) do
		if (path[index].chr == "/" or path[index].chr == "\\" ) then
			finalIndex = path.length - index.abs
			oldName = path[0, (finalIndex + 1)]
			tmpVar = 1
		else 
			index = index - 1
		end
	end
	return oldName
end
 
print "Escriba el path de un directorio: "
path = gets.chomp.to_s
dirComp(path)

C:

dir.exe

Escriba el path de un directorio: 

||ERROR: Path mayor a 255 caracteres||
Desea renombrar el archivo (s/n): 

Escriba el nuevo nombre para el archivo: 

... | OK |

require 'find'
 
def dirComp(dir)
	Dir.chdir(dir)
	puts dir
	Find.find(dir) do |path|
		if(path.to_s.length > 256)
			print "#{path} ... ||ERROR: Path mayor a 255 caracteres||\n"
			print "Desea renombrar el archivo (s/n): "
			op = gets.chomp.to_s
			if (op == 's')
				print "Escribe el nuevo nombre para el archivo: "
				name = gets.chomp.to_s
				oldName = cutPath(path)
				newName = oldName + name
				File.rename(path.gsub("/", "\\"), newName.gsub("/", "\\"))
			else next 
			end
		else puts "#{path} ... |OK|"
		end
	end
end
 
def cutPath(path)
	index = -1
	tmpVar = 0
	while (tmpVar != 1) do
		if (path[index].chr == "/" or path[index].chr == "\\" ) then
			finalIndex = path.length - index.abs
			oldName = path[0, (finalIndex + 1)]
			tmpVar = 1
		else 
			index = index - 1
		end
	end
	return oldName
end
 
print "Escriba el path de un directorio: "
path = gets.chomp.to_s
dirComp(path)

require 'find'
 
def dirComp(dir)
	fileName = "C:" + "\\list.txt"
	File.open fileName, 'w'
	counter = 0 
	Dir.chdir(dir)
	puts dir
	Find.find(dir) do |path|
		if(path.to_s.length > 256)
			print "#{path} ... ||ERROR: Path mayor a 255 caracteres||\n"
			File.open fileName, 'a+' do |file|
				file.write "#{path.gsub("/", "\\")}\n"
				counter = counter + 1
			end
		else puts "#{path} ... |OK|"
		end
	end
	if(counter == 0) then 
		print "No se encontraron rutas incorrectas! ;) \n"
	else print "Se encontraron #{counter} rutas incorrectas, y fueron guardadas en #{fileName.gsub("/", "\\")} =(\n"
	end
end
 
def cutPath(path)
	index = -1
	tmpVar = 0
	while (tmpVar != 1) do
		if (path[index].chr == "/" or path[index].chr == "\\" ) then
			finalIndex = path.length - index.abs
			oldName = path[0, (finalIndex + 1)]
			tmpVar = 1
		else 
			index = index - 1
		end
	end
	return oldName
end
 
print "Escriba el path de un directorio: "
path = gets.chomp.to_s
dirComp(path)
 

Set objfso = createobject("scripting.filesystemobject")
Set IDir = objfso.getfolder(wscript.arguments(0))
ListDirs(IDir)
 
Function ListDirs(IFol)
	if len(IFol.path)>256 then wscript.echo IFol.path
	Set SubsIFol = IFol.subfolders
 
	On error resume next
	For each SF in SubsIFol
		ListDirs(SF)
	Next
End Function

C:\>cscript /nologo elscript.vbs C:

C:\>cscript /nologo elscript.vbs C: > log.txt

Set objfso = createobject("scripting.filesystemobject")
Set IDir = objfso.getfolder(wscript.arguments(0))
ListDirs(IDir)
 
Function ListDirs(IFol)
	if len(IFol.path)>256 then wscript.echo IFol.path
	Set SubsIFol = IFol.subfolders
 
	On error resume next
	For each SF in SubsIFol
		ListDirs(SF)
	Next
End Function

C:\>cscript /nologo elscript.vbs C:

C:\>cscript /nologo elscript.vbs C: > log.txt

C:\>cscript /nologo elscript.vbs C:

"cscript" no se reconoce como un comando interno o externo,
programa o archivo por lotes ejecutable.

Set objfso = createobject("scripting.filesystemobject")
Set IDir = objfso.getfolder(wscript.arguments(0))
ListDirs(IDir)
 
Function ListDirs(IFol)
	if len(IFol.path)>256 then wscript.echo IFol.path
 
	Set FilesIFol = IFol.files
 
	For each FF in FilesIFol
		if len(FF.path)>256 then wscript.echo FF.path
	Next
 
	Set SubsIFol = IFol.subfolders
 
	On error resume next
	For each SF in SubsIFol
		ListDirs(SF)
	Next
End Function