Author Topic: [Source][AutoIT] Primitive File/Folder Hidder  (Read 303 times)

0 Members and 1 Guest are viewing this topic.

MrCamo

  • Village Idiot of TKC
  • Quarantine
  • Heckler Apprentice
  • ****
  • Posts: 1456
  • Banned from TKC forever
    • View Profile
[Source][AutoIT] Primitive File/Folder Hidder
« on: January 07, 2016, 03:38:51 am »
A public version of my File/Folder Hidder. Compile and use :)

Quote
#NoTrayIcon
$input = InputBox('File/Folder Hidder by MrCamo','Type a path of a file/folder you wish to hide' & @CRLF & "/h = hide /u = unhide" & @CRLF & "for instance: C:\New Folder /h  ","C:\New Folder /h","",270)
$x1 = StringRight($input,1)
$x2 = StringRight($input,2)
$x3 = $x1 & $x2
$cut = StringTrimRight($input,2)
 If not FileExists($cut) Then
   MsgBox(0,'Error','Folder/File does not exist')
   Exit
   EndIf
If $x3 ==  "h/h" then

$seth = FileSetAttrib($cut,"S+H",1)
   if $seth == @error Then
      MsgBox(0,'Error','you have no sufficient permissions to perform this action,relaunch this application with Admin rights')
      Exit
      EndIf
MsgBox(0,'','Done!')
ElseIf $x3 == "u/u" Then
FileSetAttrib($cut,"S-H",1)
$setu = FileSetAttrib($cut,"N",1)
      if $setu == @error Then
      MsgBox(0,'Error','you have no sufficient permissions to perform this action,Run this application with Admin rights')
      Exit
      EndIf
MsgBox(0,'','Done!')
Else
   MsgBox(48,'Error','the syntax of the command is incorrect')
EndIf
« Last Edit: January 07, 2016, 05:20:10 am by MrCamo »