Jump to content

dirmove and dricopy dont go


Recommended Posts

hi  guy

i try to use  dir move  but  dont  go :(

Func _Cancella_anagrafica()
$prodamag = _GUICtrlListView_GetItemCount($List1AC)
    $controlmag = $prodamag
    $j = 0

Do

$H = _GUICtrlListView_GetItemChecked($List1AC, $prodamag)

        Select

            Case $H = "true"

                _GUICtrlListView_SetItemSelected($List1AC, $prodamag)
                $aItem = _GUICtrlListView_GetItemTextArray($List1AC, $prodamag)

                Local $dest_folder_cliente = IniRead(@ScriptDir&"\Config.ini", "GlobalConfig", "key1", "NotFound")
                ;ShellExecute($dest_folder_cliente&"\"&$aItem[1]&"_"&$aItem[8])

                DirMove($dest_folder_cliente&"\"&$aItem[1]&"_"&$aItem[8], $dest_folder_cliente&"\Eliminati")
                ShellExecute($dest_folder_cliente&"\Eliminati")
        EndSelect


        $prodamag = $prodamag - 1
        $j = $j + 1
    Until $j = $controlmag


    EndFunc
Link to comment
Share on other sites

i tryed  also in this mode 

Func _Cancella_anagrafica()
$prodamag = _GUICtrlListView_GetItemCount($List1AC)
    $controlmag = $prodamag
    $j = 0

Do

$H = _GUICtrlListView_GetItemChecked($List1AC, $prodamag)

        Select

            Case $H = "true"

                _GUICtrlListView_SetItemSelected($List1AC, $prodamag)
                $aItem = _GUICtrlListView_GetItemTextArray($List1AC, $prodamag)

                Local $dest_folder_cliente = IniRead(@ScriptDir&"\Config.ini", "GlobalConfig", "key1", "NotFound")
                ;ShellExecute($dest_folder_cliente&"\"&$aItem[1]&"_"&$aItem[8])
Local $source =String($dest_folder_cliente&"\"&$aItem[1]&"_"&$aItem[8])
Local $destination =String($dest_folder_cliente&"\Eliminati")
                Local $Ris=DirMove($source,$destination )
MsgBox(0,'',$ris)
MsgBox(0,'',$source)
MsgBox(0,'',$destination)

        EndSelect


        $prodamag = $prodamag - 1
        $j = $j + 1
    Until $j = $controlmag


    EndFunc

$source is correct also destination

but $ris  give  me always  0  :(

Link to comment
Share on other sites

 

$source is correct also destination

but $ris  give  me always  0   :(

In that case you might not be having access over the destination folder, try to get the permission through UAC using a #requireadmin statement at the top of your script.

If this doesn't help post the working script so that we can find out where the problem might be

My code:

PredictText: Predict Text of an Edit Control Like Scite. Remote Gmail: Execute your Scripts through Gmail. StringRegExp:Share and learn RegExp.

Run As System: A command line wrapper around PSEXEC.exe to execute your apps scripts as System (LSA). Database: An easier approach for _SQ_LITE beginners.

MathsEx: A UDF for Fractions and LCM, GCF/HCF. FloatingText: An UDF for make your text floating. Clipboard Extendor: A clipboard monitoring tool. 

Custom ScrollBar: Scroll Bar made with GDI+, user can use bitmaps instead. RestrictEdit_SRE: Restrict text in an Edit Control through a Regular Expression.

Link to comment
Share on other sites

can you try changing the directory, for example copy/move a dir in the next level of your scriptdir to your scriptdir.

Please post working code.

Edited by PhoenixXL

My code:

PredictText: Predict Text of an Edit Control Like Scite. Remote Gmail: Execute your Scripts through Gmail. StringRegExp:Share and learn RegExp.

Run As System: A command line wrapper around PSEXEC.exe to execute your apps scripts as System (LSA). Database: An easier approach for _SQ_LITE beginners.

MathsEx: A UDF for Fractions and LCM, GCF/HCF. FloatingText: An UDF for make your text floating. Clipboard Extendor: A clipboard monitoring tool. 

Custom ScrollBar: Scroll Bar made with GDI+, user can use bitmaps instead. RestrictEdit_SRE: Restrict text in an Edit Control through a Regular Expression.

Link to comment
Share on other sites

$H returns True not 'True'.

#include <Constants.au3>

; This works, but I wouldn't rely on it.
MsgBox($MB_SYSTEMMODAL, '', 'True' = True)
MsgBox($MB_SYSTEMMODAL, '', 'True' == True)

UDF List:

 
_AdapterConnections()_AlwaysRun()_AppMon()_AppMonEx()_ArrayFilter/_ArrayReduce_BinaryBin()_CheckMsgBox()_CmdLineRaw()_ContextMenu()_ConvertLHWebColor()/_ConvertSHWebColor()_DesktopDimensions()_DisplayPassword()_DotNet_Load()/_DotNet_Unload()_Fibonacci()_FileCompare()_FileCompareContents()_FileNameByHandle()_FilePrefix/SRE()_FindInFile()_GetBackgroundColor()/_SetBackgroundColor()_GetConrolID()_GetCtrlClass()_GetDirectoryFormat()_GetDriveMediaType()_GetFilename()/_GetFilenameExt()_GetHardwareID()_GetIP()_GetIP_Country()_GetOSLanguage()_GetSavedSource()_GetStringSize()_GetSystemPaths()_GetURLImage()_GIFImage()_GoogleWeather()_GUICtrlCreateGroup()_GUICtrlListBox_CreateArray()_GUICtrlListView_CreateArray()_GUICtrlListView_SaveCSV()_GUICtrlListView_SaveHTML()_GUICtrlListView_SaveTxt()_GUICtrlListView_SaveXML()_GUICtrlMenu_Recent()_GUICtrlMenu_SetItemImage()_GUICtrlTreeView_CreateArray()_GUIDisable()_GUIImageList_SetIconFromHandle()_GUIRegisterMsg()_GUISetIcon()_Icon_Clear()/_Icon_Set()_IdleTime()_InetGet()_InetGetGUI()_InetGetProgress()_IPDetails()_IsFileOlder()_IsGUID()_IsHex()_IsPalindrome()_IsRegKey()_IsStringRegExp()_IsSystemDrive()_IsUPX()_IsValidType()_IsWebColor()_Language()_Log()_MicrosoftInternetConnectivity()_MSDNDataType()_PathFull/GetRelative/Split()_PathSplitEx()_PrintFromArray()_ProgressSetMarquee()_ReDim()_RockPaperScissors()/_RockPaperScissorsLizardSpock()_ScrollingCredits_SelfDelete()_SelfRename()_SelfUpdate()_SendTo()_ShellAll()_ShellFile()_ShellFolder()_SingletonHWID()_SingletonPID()_Startup()_StringCompact()_StringIsValid()_StringRegExpMetaCharacters()_StringReplaceWholeWord()_StringStripChars()_Temperature()_TrialPeriod()_UKToUSDate()/_USToUKDate()_WinAPI_Create_CTL_CODE()_WinAPI_CreateGUID()_WMIDateStringToDate()/_DateToWMIDateString()Au3 script parsingAutoIt SearchAutoIt3 PortableAutoIt3WrapperToPragmaAutoItWinGetTitle()/AutoItWinSetTitle()CodingDirToHTML5FileInstallrFileReadLastChars()GeoIP databaseGUI - Only Close ButtonGUI ExamplesGUICtrlDeleteImage()GUICtrlGetBkColor()GUICtrlGetStyle()GUIEventsGUIGetBkColor()Int_Parse() & Int_TryParse()IsISBN()LockFile()Mapping CtrlIDsOOP in AutoItParseHeadersToSciTE()PasswordValidPasteBinPosts Per DayPreExpandProtect GlobalsQueue()Resource UpdateResourcesExSciTE JumpSettings INISHELLHOOKShunting-YardSignature CreatorStack()Stopwatch()StringAddLF()/StringStripLF()StringEOLToCRLF()VSCROLLWM_COPYDATAMore Examples...

Updated: 22/04/2018

Link to comment
Share on other sites

faustf,

If the destination dir exists then use flag = 1.  Be advised that the source dir is deleted and if the destination dir exists the source dir will be added to the destination dir.

kylomas

Edited by kylomas

Forum Rules         Procedure for posting code

"I like pigs.  Dogs look up to us.  Cats look down on us.  Pigs treat us as equals."

- Sir Winston Churchill

Link to comment
Share on other sites

also  in this mode  thesame   result

Func _Cancella_anagrafica()
$prodamag = _GUICtrlListView_GetItemCount($List1AC)
    $controlmag = $prodamag
    $j = 0

Do

$H = _GUICtrlListView_GetItemChecked($List1AC, $prodamag)

        Select

            Case $H = "true"

                _GUICtrlListView_SetItemSelected($List1AC, $prodamag)
                $aItem = _GUICtrlListView_GetItemTextArray($List1AC, $prodamag)

                Local $dest_folder_cliente = IniRead(@ScriptDir&"\Config.ini", "GlobalConfig", "key1", "NotFound")
                ;ShellExecute($dest_folder_cliente&"\"&$aItem[1]&"_"&$aItem[8])
;Local $source =String($dest_folder_cliente&"\"&$aItem[1]&"_"&$aItem[8])
;Local $destination =String($dest_folder_cliente&"\Eliminati")
                Local $Ris=DirMove('c:\test','c:\test1' )
;MsgBox(0,'',$ris)
;MsgBox(0,'',$source)
;MsgBox(0,'',$destination)
; ShellExecute($dest_folder_cliente&"\Eliminati")
 ShellExecute('c:\test')
        EndSelect


        $prodamag = $prodamag - 1
        $j = $j + 1
    Until $j = $controlmag


    EndFunc
Link to comment
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
 Share

  • Recently Browsing   0 members

    • No registered users viewing this page.
×
×
  • Create New...