File and folder hiding problem

[youtuber]

1- I want to select a hidden file and make it visible
2- I want to select the visible file and make it hidden

$aFileFolder = FileOpenDialog("Test", @ScriptDir & "\", "All (*)")

If StringInStr(FileGetAttrib($aFileFolder),"H") Then
    FileSetAttrib($aFileFolder, "+H", 1)
Else
    FileSetAttrib($aFileFolder, "-H", 1)
EndIf

 

[Jos]

... and the question is?

Jos

[youtuber]

How to hide files and folders with FileGetAttrib and make them visible again?

 

[Simpel]

Hi.

First you have to make all hidden files visible. This snippet I use to toggle between showing/not showing hidden files:

Local $siAktuell = RegRead("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced", "Hidden")
Switch $siAktuell
    Case 1  ;Hidden Files are visible
        RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced", "Hidden", "REG_DWORD", "00000002"); hide them
    Case 2  ;Hidden Files are unvisible
        RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced", "Hidden", "REG_DWORD", "00000001"); show them all
EndSwitch
Exit

Regards, Conrad

[youtuber]

@Simpel Ok i understood but this is not what i want

I guess my codes are problematic

 

Please help me with this issue

If StringInStr(FileGetAttrib($aFileFolder),"H") Then

 

[Simpel]

Hi.

Describe the problem. What did you do? What happens, what happens not? How is your workflow? What are the (error) messages in the console?

Conrad

[youtuber]

$aFileFolder = FileOpenDialog("Test", @ScriptDir & "\", "All (*)")
$test = StringInStr(FileGetAttrib($aFileFolder),"H")
ConsoleWrite('@@ Debug(' & @ScriptLineNumber & ') : $test = ' & $test & @CRLF & '>Error code: ' & @error & @CRLF) ;### Debug Console

@@ Debug(4) : $test = 0

[Simpel]

Hi.

I get @@ Debug(3) : $test = 3. But only if I chose a hidden file. A not hidden file has no attribute "H".

Conrad

[youtuber]

Is this code wrong?

ElseIf StringInStr(FileGetAttrib($aFileFolder),"AH") Then

If StringInStr(FileGetAttrib($aFileFolder),"-H") Then
    FileSetAttrib($aFileFolder, "+H", 1)
ElseIf StringInStr(FileGetAttrib($aFileFolder),"AH") Then
    FileSetAttrib($aFileFolder, "-H", 1)
EndIf

Or this

If StringInStr(FileGetAttrib($aFileFolder),"-H") Then
    FileSetAttrib($aFileFolder, "+H", 1)
ElseIf StringInStr(FileGetAttrib($aFileFolder),"AH") Then
    FileSetAttrib($aFileFolder, "-H", 1)
ElseIf StringInStr(FileGetAttrib($aFileFolder),"A") Then
    FileSetAttrib($aFileFolder, "+H", 1)
EndIf

 

Edited July 30, 2017 by youtuber

[Simpel]

You have to change +H and -H:

$aFileFolder = FileOpenDialog("Test", @ScriptDir & "\", "All (*)")

If StringInStr(FileGetAttrib($aFileFolder),"H") Then
    FileSetAttrib($aFileFolder, "-H", 1)
Else
    FileSetAttrib($aFileFolder, "+H", 1)
EndIf

If attribute is "H" then it is hidden and you want to unhide it so set new attribute to "-H". Otherwise set it hidden with "+H"

Conrad

[youtuber]

understood thanks
What parameters Attribute are used for the folder?

 

 

[Simpel]

Click on

FileGetAttrib()

and you can read it in the helpfile.

Conrad

[youtuber]

Is this wrong?

$aFileFolder = FileSelectFolder("Test", @ScriptDir & "\", "All (*)")

If StringInStr(FileGetAttrib($aFileFolder),"RASHNDOCTX") Then
    FileSetAttrib($aFileFolder, "-RASHNDOCTX", 1)
Else
    FileSetAttrib($aFileFolder, "+RASHNDOCTX", 1)
EndIf

[Simpel]

You want to hide/unhide folders? Same as in my example above. You only have to change FileOpenDialog with FileSelectFolder - what you already did in your snippet.

Conrad

[youtuber]

If this is an index

$aFileFolder = FileSelectFolder("Test", @ScriptDir & "\", "All (*)")

If StringInStr(FileGetAttrib($aFileFolder),"D") Then
    FileSetAttrib($aFileFolder, "-H", 1)
Else
    FileSetAttrib($aFileFolder, "+H", 1)
EndIf

 

[Simpel]

Ok nearly. If you use FileSelectFolder you will always only get folders. So you don't have to check whether it has the attribute "D". What you want to know is if the folder is hidden (means attribute "H").

So change in line 2 "D" with "H" and it should work. Conrad