Sign in to follow this  
Followers 0
Thatsgreat2345

File Hider

1 post in this topic

#1 ·  Posted (edited)

I was kinda bored and since these days just being able to hide the file isnt enough i made the file hider, you select a file and it hides it behind a bunch of folders,havent added a reverse function cuz i have to go to soccer so ill edit the topic and add in the reverser :D, havent tested so report bugs, it worked after 10 folders idk anything after that

Edit: Dont do 10000000 folders....

#include <GUIConstants.au3>
#include <File.au3>
Global $null
$GUIhide = GUICreate("File Hider", 325, 146, 193, 126)
$file = GUICtrlCreateInput("", 8, 24, 249, 21)
$browse = GUICtrlCreateButton("Browse", 264, 16, 49, 25, 0)
GUICtrlCreateLabel("Number of Folders to hide Behind", 8, 96, 161, 17)
$number = GUICtrlCreateInput("", 48, 120, 57, 21)
$hide = GUICtrlCreateButton("Hide it", 224, 112, 65, 25, 0)
$dir = GUICtrlCreateInput("", 8, 64, 249, 21)
GUICtrlCreateLabel("File to Hide", 96, 8, 57, 17)
GUICtrlCreateLabel("Where to Hide it", 80, 48, 81, 17)
$browsedir = GUICtrlCreateButton("Browse", 264, 64, 49, 25, 0)
GUISetState(@SW_SHOW)
WHile 1
$msg = GUIGetMsg()
Select
    Case $msg = $browse
        GUICtrlSetData($file,FileOpenDialog("File to Hide","","Files (*.*)"))
    Case $msg = $hide
        If GUICtrlRead($file) = "" or GUICtrlRead($number) = "" or GUICtrlRead($dir) = "" Then
        MsgBox(0,"Error","There has been an error, make sure all inputs have been filled in")
    Else
        $number1 = Guictrlread($number)
        $file1 = GUICtrlRead($file)
        $dir1 = GUICtrlRead($dir)
        $filename = _PathSplit($file1,$null,$null,$null,$null)
        For $i = 1 to $number1 
                DirCreate($dir1 & "\" & $i)
                $dir1 = $dir1 & "\" & $i
            Next
            FileMove($file1,$dir1 & "\" & $filename[3] & $filename[4])
            MsgBox(0,"File Hidden","File Hidden Succesfully")
    EndIf
    Case $msg = $GUI_EVENT_CLOSE
        Exit
    Case $msg = $browsedir
        GUICtrlSetData($dir,FileSelectFolder("Select a Folder to Hide the file in",""))
EndSelect
WEnd
Edited by thatsgreat2345

Share this post


Link to post
Share on other sites



Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!


Register a new account

Sign in

Already have an account? Sign in here.


Sign In Now
Sign in to follow this  
Followers 0