need my code tested

[Bert]

I'm designing a script, and I need to make sure what I designed works the way it should. In my testing, it works as expected, but I only have my laptop to check it on. The script is pretty basic. In its current form, it is simply a window with a input field put to read only. I have a button that allows you to select a folder. I put in a filter that will check to see if certain drives are selected, a error will occur with a msgbox. If the selection passed the filter, the data is written to a ini file, and the input field is updated.

What I need to make sure of is that the filter works as designed. I would be thankful if some folks would check the script.

expandcollapse popup

; Script will have includes from the original design. 

#include<Date.au3>
#Include<GuiConstants.au3>
#Include<File.au3>
#include<Array.au3>
#include<Process.au3>
#include<Misc.au3>

DIM $ini1
DIM $savepath
DIM $ini = @ScriptDir & "/PCT_tool.ini"
;-----------------------------------------------------------------------------------------------------------
GuiCreate("PC Transplant Automation Tool", 785, 326,-1, -1 , BitOR($WS_OVERLAPPEDWINDOW, $WS_CLIPSIBLINGS))

$lable_1 = GUICtrlCreateLabel("Final Backup Location: " & $ini1, 10,9, 220, 20)

$button_1 = GUICtrlCreateButton("Change", 315, 24, 50, 22);Final Backup Location:

$Edit_1 = GuiCtrlCreateEdit("", 590, 70, 180, 230);list the profiles
$edit_2 = GUICtrlCreateInput("", 10, 25, 300, 20, $ES_READONLY)
GUICtrlSetData($edit_2,IniRead($ini, @UserName, '1',''))

$group_1 = GUICtrlCreateGroup("", 3, 0, 370, 50)

GuiSetState()
While 1
    $msg = GuiGetMsg()
    Select
    Case $msg = $GUI_EVENT_CLOSE
        ExitLoop
    Case $msg = $button_1
        _FinalDestination()
    Case Else
        ;;;
    EndSelect
WEnd
Exit


func _FinalDestination()
    While 1
        $savepath = FileSelectFolder("Select the final location the PC Transplant backups will be placed", "::{20D04FE0-3AEA-1069-A2D8-08002B30309D}", 7)
        $filter1 = 'D:\E:\F:\G:\H:\I:\J:\K:\L:\M:\N:\O:\P:\Q:\R:\S:\T:\U:\V:\W:\X:\Y:\Z:\'
        $check_left = StringLeft($savepath, 3)
        $ccc = StringInStr($filter1, StringStripWS($check_left, 8))
        Select
            case $savepath = ""
                ExitLoop
            case $ccc > 0
                IniWrite($ini, @UserName, "1", $savepath)
                GUICtrlSetData($edit_2,$savepath)
                ExitLoop                
            Case $ccc = 0
                MsgBox(16, 'Error', "The Final Location you select: "&@CRLF&""&@CRLF&"   """&$savepath&""""&@CRLF&""&@CRLF&"is not supported. Please select again.")
        EndSelect
    WEnd    
EndFunc

[weaponx]

This script reminded me that Final Destination is an awful movie.

[weaponx]

On a more serious note, this script hangs as soon as I click "Change". Might have something to do with "::{20D04FE0-3AEA-1069-A2D8-08002B30309D}" being the start folder???

[DW1]

Works as expected for me on WinXP on a Dell Optiplex 745 Desktop

[Nevin]

I think it works for me. I'm a little confused on what it is doing. I picked a folder, and it wrote to the ini file the name of it.

[my username here]

1=E:\folder name\blahblah\blah

Like that. It worked for folders in my E: drive, but wasn't working for the C, and gave me the msgbox you mentioned.

If that's all it's doing, then it works for me.

I'm running XP Pro.

[Bert]

What it is supposed to do is not allow you to select any LOCAL drives: A:\, C:\.

"::{20D04FE0-3AEA-1069-A2D8-08002B30309D}" - CLSID for "My Computer". What OS are you running?

While I was out to dinner, I thought I would need to add support for a networked computer.

I do not plan to support 95, 98, or ME. I'm making the script for 2000, XP, and possibly Vista, depending on if Vista doesn't have a security issue with it. Knowing my luck with Vista, the script will be pegged as bad and not allowed to run at all.

If you have used PC transplant, you know the tool lets you transplant your settings and data from one PC to another. The problem is you have to plug in a bunch of settings each time you use it. Also, if you save the transplant file locally first, you run the risk of messing up. (been there, done that, got yelled at by the user when I lost their stuff) I'm making a front end that has all the settings I need, and some safety features such as space checks and alarms to let you know the job is done.

Edited December 28, 2007 by Volly

[Nevin]

Well, if LOCAL means the drive is physically contained within my system unit, then my E: drive is local. I have two hard drives.

One has two partitions, C and E, the other is F. Windows is on C, on the same hard drive, but a different partition than E. It let me choose E.

[weaponx]

I tested on my work computer XP Pro Sp2...Admin

[Bert]

Hmmm, you make a good point. I will need to tweak the filter so one can select the drives one wants filtered out. I'm making a GUI that should be able to let you select what you want to filter