my folders in my external hard drive have be

February 8, 2011 at 11:05:22
Specs: Windows XP
I connected my external seagate 650gig usb harddrive to a laptop to download antivirus software
onto it .I then noticed that all of my folders icons had changed to that of shortcuts.
when i try access i get invalid folder or path dont exist.if i move and leave my cursor over a folder lets say it was called tricks it is now called e: gilinx.exe tricks the size remains as original
please help
regards vernon

See More: my folders in my external hard drive have be

Report •


#1
February 8, 2011 at 11:11:23
Did it happen after you downloaded software or as soon as you connected the drive? I just bought a Seagate external drive but I haven't connected it yet.

How do you know when a politician is lying? His mouth is moving.


Report •

#2
February 8, 2011 at 12:07:45
it happend after the autorun finished and before i could download anything

Report •

#3
July 13, 2011 at 03:54:08
Hi I made a Vbscript to solve the Problem of the infected shortcuts:
Just Copy and paste this code in your Notepad and save it as ShortcutRemover.vbs
'A Vbscript To restore your Original Folders in your PenDrive and delete the infected shortcuts
Dim MsgTitre,fso,Ws,NomFichierLog,NBfichier
MsgTitre="Les Raccourcis Infectés dans le Flash © Hackoo"
Set fso = CreateObject("Scripting.FileSystemObject")
Set Ws = CreateObject("Wscript.Shell")
Set dc = fso.Drives
For Each d in dc
If d.IsReady and d.DriveType = 1 Then
racine = d.Driveletter
MsgBox "Votre Lecteur Flash est le " &racine&":\",64,MsgTitre
end if
Next
Ws.Run "%comspec% /c attrib -s -h -r "&racine&":\*.* /D /S",0,True
Ws.Run "%comspec% /c dir "&racine&":\ > Resultat.txt",0,True
MsgBox "Voir le Contenu du FlashDisk",64,MsgTitre
Ws.Run "Resultat.txt"

NomFichierLog = "LOGFILE.txt"
Set OutPut = fso.CreateTextFile(NomFichierLog,1)
Set folder = fso.getFolder(""&racine&":\")
If fso.fileExists (""&racine&":\rtlip.exe") Then
fso.DeleteFile ""&racine&":\rtlip.exe",True
OutPut.WriteLine " le Virus rtlip.exe à été Supprimé avec Succés !"
else
OutPut.WriteLine " le Virus rtlip.exe n'est pas contenu dans le FlashDisk !"
end if
If fso.fileExists (""&racine&":\x.exe") Then
fso.DeleteFile ""&racine&":\x.exe",True
OutPut.WriteLine " le Virus x.exe à été Supprimé avec Succés !"
else
OutPut.WriteLine " le Virus x.exe n'est pas contenu dans le FlashDisk !"
end if
If fso.fileExists (""&racine&":\ert.dll") Then
fso.DeleteFile ""&racine&":\ert.dll",True
OutPut.WriteLine " le Virus ert.dll à été Supprimé avec Succés !"
else
OutPut.WriteLine " le Virus ert.dll n'est pas contenu dans le FlashDisk !"
end if
NBfichier=0
For Each Fichier in folder.Files
If UCase(FSO.GetExtensionName(Fichier.Path)) = "LNK" Then
NBfichier=NBfichier+1
OutPut.WriteLine Fichier.Path
fso.DeleteFile(Fichier)
end if
Next
MsgBox NBfichier& " Fichiers Raccourcis Infectés Contenu dans le FlashDisk ont été supprimés avec Succés ! ",64,MsgTitre
OutPut.WriteLine vbNewLine & NBfichier& " Fichiers Raccourcis Infectés ont été supprimés ! © Hackoo"
Explorer(NomFichierLog)
Explorer ""&racine&":"
Function Explorer(File)
Set ws=CreateObject("wscript.shell")
ws.run "Explorer "& File & "\"
end Function


Report •

Related Solutions


Ask Question