โปรด อย่าติดต่อทาง FB ทาง Message นะครับ ถ้าไม่ได้ Add friend ผมไม่เห็นว่ามีข้อความมา แล้วผมไม่รับเพื่อนหากไม่มีเพื่อร่วมกันอย่างน้อย 10 คน ยกเว้นช่วงที่นั้นผมเพิ่งเข้าค่ายหรือมีกิจกรรม ถ้ามีข้อสงสัย comment ด้านล่างได้เลยครับ
เคยเป็นไหม เวลาเสียบแฟลชไดร์ใส่เครื่องแล้วไม่สามารถเปิดเข้าโฟลเดอร์ใดๆได้เลย หรือมันหายไปเลยทั้งๆที่ไม่ได้ลบ ถ้าหากคุณกำลังเป็นอยู่ขอบอกว่าแฟลชไดร์คุณโดนไวรัสเล่นงานเข้าแล้ว วันนี้เรามีวิธีแก้มานำเสนอ วิธีแก้นี้สามารถใช้กับไวรัสเกือบทุกตัวที่เป็นไวรัสซ่อนโฟลเดอร์อีกด้วย
ที่เปิดไม่ได้นั้นเป็นเพราะไวรัสซ่อนโฟลเดอร์จริงๆเอาไว้ จากนั้นสร้างทางลัด Shortcut ขึ้นมา โดยมันจะไปบังคับเปิดตัวไวรัส แต่เนื่องจากว่าที่อยู่ ของไวรัสเปลี่ยนไป เพราะเปลี่ยนเครื่อง ชื่อไดร์จึงเปลี่ยนไป ทำให้ไม่สามารถเปิดไวรัสได้ วิธีแก้คือทำให้โฟลเดอร์หายซ่อน แล้วลบทางลัดออก
หากจำไม่ได้ เรามีวิธีง่ายกว่านั้น คือทำเป็น Bat File เพื่อง่ายต่อการใช้งาน
del /F /Q *.lnk attrib -s -h -r /S /D *
หมาย ความว่าเครื่องคุณมีไวรัสแล้ว ทำให้เมื่อแสดงโฟลเดรอ์แล้วไวรัสแปลงกลับในทันทีครับ แต่ไม่ต้องห่วงเรามีวิธีนำเสนอ โดยทำตามขั้นตอนดังนี้
Option Explicit 
Dim objFSO,oWS,objFolder,objColFolders
Dim tfolder,oLink
Dim strPath
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set oWS = WScript.CreateObject("WScript.Shell")
Set objFolder = objFSO.GetFolder(".")
Set objColFolders = objFolder.SubFolders 
For Each tfolder In objColFolders
	strPath = "./" & tfolder.Name & ".lnk"
	'MsgBox strPath
	Set oLink = oWS.CreateShortcut(strPath) 
	oLink.TargetPath = "%windir%/explorer.exe"
	oLink.Arguments = tfolder.Name
	oLink.Save    
Next
MsgBox "Complete"