Connect with us

Hi, what are you looking for?

Notebook News

เปิดปิดการช่อนไฟล์และโฟลเดอร์ ทำได้ง่ายแบบชิลๆ

การเปิดปิดการซ่อนไฟล์และโฟลเดอร์ เป็นสิ่งที่บางครั้งที่ผู้ใช้ จำเป็นต้องทำ ซึ่งการทำอาจไม่ยากเท่าไร แต่การที่จะต้องเข้าไปเปิดการซ่อนไฟล์ แล้วก็ต้องไปปิดอีกที่ มันก็เป็นงานที่ต้องใช้เวลาและขั้นตอน

ทิปนี้จะจับเอาการเปิดปิดให้มาอยู่ที่ไฟล์ Script ไฟล์เดียว เพื่อความสะดวก ทำได้โดยมี? VBScript ดังนี้…

Advertisement

1. สร้างไฟล์ Script โดยเปิด Notepad ขึ้นมา แล้วก็อปปี้คำสั่ง? VBScript ข้างล่างนี้ไปปะที่ Notepad

Message = “เมื่อทำงานถูกต้อง สคริปต์จะปิดตัวเอง” & vbCR

Message = Message & “พร้อมทั้งหน้าต่าง Windows Explorer ” & vbCR

Message = Message & “การกระทำนี้จะไม่เป็นอันตรายต่อระบบคุณ” & vbCR & vbCR

Message = Message & “จะทำต่อหรือไม่?”

X = MsgBox(Message, vbYesNo, “Notice”)

If X = 6 Then

On Error Resume Next

On Error Resume Next

Dim WSHShell, n, p, itemtype, MyBox

Set WSHShell = WScript.CreateObject(“WScript.Shell”)

p = “HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\Hidden”

itemtype = “REG_DWORD”

n = WSHShell.RegRead (p)

errnum = Err.Number

if errnum <> 1 then

WSHShell.RegWrite p, 2, itemtype

End If

If n = 2 Then

WshShell.RegWrite p, 1, itemtype

MyBox = MsgBox(“ไฟล์และโฟลเดอร์ที่ซ่อนได้ทำการโชว์แล้ว”, 64, “ซ่อนไฟล์และโฟลเดอร์”)

End If

If n = 1 Then

WshShell.Regwrite p, 2, itemtype

MyBox = MsgBox(“ทำการซ่อนไฟล์และโฟลเดอร์เหมื่อนเดิม”, 64, “ซ่อนไฟล์และโฟลเดอร์”)

End If

Set WshShell = Nothing

On Error GoTo 0

For Each Process in GetObject(“winmgmts:”). _

ExecQuery (“select * from Win32_Process where name=’explorer.exe'”)

Process.terminate(0)

Next

MsgBox “เสร็จเรียบร้อย” & vbcr & vbcr , 4096, “Done”

Else

MsgBox “ไม่มีการเปลี่ยนแปลงใดๆ กับระบบของคุณ” & vbcr & vbcr, 4096, “ผู้ใช้ขอยกเลิก”

End If

2. บันทึกไฟล์นี้เป็นชื่อ Enable_Disable_Hidden.vbs

3. เมื่อใช้งานครั้งแรกเพื่อจะเปิดให้เห็นไฟล์หรือโฟลเดอร์ที่ซ่อนก็ดับเบิลคลิกที่ไฟล์สร้างขึ้นมา จะมีหน้าต่าง Notice เปิดขึ้นมา ให้คลิกปุ่ม Yes

Hidden1

4. ต่อมาจะมีหน้าต่าง ซ่อนไฟล์และโฟลเดอร์ จะแสดงข้อความ ไฟล์และโฟลเดอร์ที่ซ่อนได้ทำการโชว์แล้ว ให้คลิกปุ่ม OK และ OK อีกครั้งเป็นเรียบร้อย คุณก็จะเห็นไฟล์และโฟลเดอร์ที่ซ่อนอยู่

Hidden2

ส่วนในการที่จะทำการซ่อนไฟล์และโฟลเดอร์กลับเหมือนเดิมก็ให้ทำลักษณะเดียวกันคือดับเบิลคลิกที่ไฟล์ที่สร้างขึ้นมา Script จะทำการแก้ไขระบบให้ซ่อนไฟล์เหมือนเดิม โดยจะแสดงข้อความที่หน้าต่าง ซ่อนไฟล์และโฟลเดอร์ ว่า ทำการซ่อนไฟล์และโฟลเดอร์เหมื่อนเดิม

Hidden3

Click to comment
Advertisement

บทความน่าสนใจ

Windows Zone

บางครั้งเพื่อนๆ หลายๆคน อาจจะประสบปัญหาหลังลง Windows เสร็จใหม่ๆ ทั้ง Windows 10 , Windows 8.1 หรือ Windows 7 และ เมื่อเปิด Notepad และปรากฎว่า ตัวหนังสือหรือข้อความใน Notepad

Tips & Tricks

บนหน้าจอของใครหลายคนอาจจะสับสนไปด้วยบรรดาไอคอนโปรแกรมมากมาย ยิ่งถ้าไม่ได้จัดการให้ดีรับรองว่าจะไม่เหลือพื้นที่ว่างสำหรับวางอะไรอีก

Tips & Tricks

เป็นอีกปัญหาหนึ่งที่เรามักจะเจอกันบ่อยๆ หลังจากที่ลงวินโดวส์ใหม่ๆ กับการเปิดไฟล์ Notepad ที่เคยพิมพ์ภาษาไทยเอาไว้ เมื่อเปิดขึ้นมาอีกครั้งกลายเป็นตัว ??? ไป หลายคนอาจจะแทบช็อค เพราะพิมพ์งานเอาไว้มากมาย

Tips & Tricks

เราสามารถทำไดอารีประจำวันด้วย Notepad ซึ่งมีกระบวนการที่ง่ายๆ และใช้ได้จริง โดยไม่ต้องไปโหลดโปรแกรมอื่นๆ มาติดตั้งให้เสียเวลา

เราใช้คุกกี้เพื่อพัฒนาประสิทธิภาพ และประสบการณ์ที่ดีในการใช้เว็บไซต์ของคุณ คุณสามารถศึกษารายละเอียดได้ที่ นโยบายความเป็นส่วนตัว

Privacy Preferences

คุณสามารถเลือกการตั้งค่าคุกกี้โดยเปิด/ปิด คุกกี้ในแต่ละประเภทได้ตามความต้องการ ยกเว้น คุกกี้ที่จำเป็น

ยอมรับทั้งหมด
Manage Consent Preferences
  • คุกกี้ที่จำเป็น
    Always Active

    ประเภทของคุกกี้มีความจำเป็นสำหรับการทำงานของเว็บไซต์ เพื่อให้คุณสามารถใช้ได้อย่างเป็นปกติ และเข้าชมเว็บไซต์ คุณไม่สามารถปิดการทำงานของคุกกี้นี้ในระบบเว็บไซต์ของเราได้

บันทึก