File Hider

[Thatsgreat2345]

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 , havent tested so report bugs, it worked after 10 folders idk anything after that

Edit: Dont do 10000000 folders....

expandcollapse popup

#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 June 21, 2006 by thatsgreat2345