Folder properties

[Matz]

Hi.

Is there anyway to open the properties window for a folder hidden, and get Hidden window text?

I'm trying to get Space Restriction on a Novell network drive/folder.

Autoit active window info displays all the hidden window text, this is some of the text.

>>>> Hidden Window text <<<<

Space Restricion:

Unlimited

Anyone got a tip?

[Matz]

THis is what I came up with.. semi hidden...

expandcollapse popup

#include <Array.au3>
#include <File.au3>

Opt("WinTitleMatchMode", 2)


Dim $array



Run("explorer.exe f:\", "", @SW_HIDE)
WinWaitActive("Usrvol")
Send("{APPSKEY}")
Send("r")
WinWaitActive("Properties")
Send("{SHIFTDOWN}")
Send("{tab}")
Send("{SHIFTUP}")
Send("{RIGHT}")
WinWaitActive("Properties", "LONG")
$text = WinGetText("Properties")
Send("!{F4}")





$file = "c:\test.txt"
_FileCreate ( $file )
FileOpen($file, 2)

FileWrite($file, $text)
FileClose($file)

_FileReadToArray($file, $array)

$i = 1
Do
    $check = $array[$i]
    $i = $i + 1
    
Until $check = "Space Available:"
$space = $array[$i]

$error = WinClose("Usrvol")
ConsoleWrite($error & @LF)

ConsoleWrite($space & @LF)
MsgBox(0, "Space available", $space)

I'm sure there is a better way to make text with linefeeds -> one line... But this one works...

Matz

[acastle]

Hi.

Is there anyway to open the properties window for a folder hidden, and get Hidden window text?

I'm trying to get Space Restriction on a Novell network drive/folder.

Autoit active window info displays all the hidden window text, this is some of the text.

>>>> Hidden Window text <<<<

Space Restricion:

Unlimited

Anyone got a tip?

I needed the same thing and found that JRButils does this natively. There's a gui and cmd line tool. JRB Software specialises in producing utilities for managing NetWare. Here's a link to their site: JRBSoftware

[PsaltyDS]

Autoit active window info displays all the hidden window text, this is some of the text.

>>>> Hidden Window text <<<<

Space Restricion:

Unlimited

WinGetText() will read all of the text, including hidden if you put Opt("WinDetectHiddenText", 1) in there:

#include <guiconstants.au3>
Global $WinDetectHiddenText = False
Opt("GuiOnEventMode", 1)
Opt("WinDetectHiddenText", $WinDetectHiddenText)
$hGUI = GUICreate("WinDetectHiddenText Test", 400, 300)
GUISetOnEvent($GUI_EVENT_CLOSE, "_Quit")
GUICtrlCreateLabel("(Hit ESC to test...)", 10, 10, 380, 20, $SS_Center)
GUICtrlCreateLabel("This is visible text.", 10, 80, 380, 20, $SS_Center)
GUICtrlCreateLabel("This is hidden text.", 10, 110, 380, 20, $SS_Center)
GUICtrlSetState(-1, $GUI_HIDE)
GUISetState()

HotKeySet("{ESC}", "_ShowText")

While 1
    Sleep(20)
WEnd

Func _ShowText()
    MsgBox(64, "WinDetectHiddenText = " & $WinDetectHiddenText, WinGetText($hGUI))
    $WinDetectHiddenText = Not $WinDetectHiddenText
    Opt("WinDetectHiddenText", $WinDetectHiddenText)
EndFunc   ;==>_ShowText

Func _Quit()
    Exit
EndFunc   ;==>_Quit