megaservo

Problem with DirMove all subdirectories within a windows users profile folder like Desktop

3 posts in this topic

#1 ·  Posted (edited)

Hi All, 

I'm making a stage 1 preparation script to apply to target worksation Win 7 and Win 8.1 machines -in preparation to running a separate batch script later (stage 2) within our Windows Server with "netdom.exe move" xxxxxxxx

Stage 1 Script Tasks: 

1. delete some common shortcuts

2. Then move all files within common user profile backup locations - including any files in the sub-directories of the common backups locations within each users profile folder. 

Stage 1 Script Purpose: 

Make it easy for staff to grab files and folders from one C:\_Backup directory

Stage 1 Script PROBLEM:

The script successfully removes the desired shortcuts - that part works well.
Problem is it only copies files in root directory of each users common folder (eg: Desktop) but doesn't move all the sub-directories and its files and move it to the corresponding backup directory. I've searched the whole AutoIT forum domain for ideas but I've hit a dead end. 

 

Here is the code: 

;START TASKS--------------------------------------------------------------------------
#include <FileConstants.au3>
$ccsystem32 = @SystemDir ;define C:\Windows\System32 folder
$ccdesktop = @DesktopCommonDir ;define all users desktop location
;rename CompanyName Remote Desktop shortcut
FileCopy($ccdesktop&"\Remote Desktop.rdp", $ccdesktop&"\Company Remote Desktop.rdp", 0)
;delete copies of "SHIP", "eKeySilent", "eKey Manual Login", "eKey Admin" and "ConnX Login" from every profile, adds a copy ot each Desktop folder.
$folder = StringLeft(@UserProfileDir,StringInStr(@UserProfileDir,"\",0,-1))
$search = FileFindFirstFile($folder&"*")
While 1
    $profile = FileFindNextFile($search)
    If @error Then ExitLoop
    If FileExists($folder&$profile&"\desktop\SHIP.url") Then
        FileDelete($folder&$profile&"\desktop\SHIP.url")
    EndIf
    If FileExists($folder&$profile&"\desktop\ekeySilent.lnk") Then
        FileDelete($folder&$profile&"\desktop\ekeySilent.lnk")
    EndIf
    If FileExists($folder&$profile&"\desktop\eKey Manual Login.url") Then
        FileDelete($folder&$profile&"\desktop\eKey Manual Login.url")
    EndIf
    If FileExists($folder&$profile&"\desktop\ConnX Login.lnk") Then
        FileDelete($folder&$profile&"\desktop\ConnX Login.lnk")
    EndIf
    If FileExists($folder&$profile&"\desktop\eKey Admin.url") Then
        FileDelete($folder&$profile&"\desktop\eKey Admin.url")
    EndIf
    If FileExists($folder&$profile&"\desktop\Remote Desktop.rdp") Then
        FileDelete($folder&$profile&"\desktop\Remote Desktop.rdp")
    EndIf
    ;backup desktop folder of each user
    If FileExists($folder&$profile&"\desktop\"&"*.*") Then
        FileMove($folder&$profile&"\desktop\"&"*.*", "C:\_Backup\"&$profile&"\Desktop\", 9) ;flag combining overwrite existing files & create destination structure
    EndIf
    ;backup downloads folder of each user
    If FileExists($folder&$profile&"\downloads\"&"*.*") Then
        FileMove($folder&$profile&"\downloads\"&"*.*", "C:\_Backup\"&$profile&"\Downloads\", 9) ;flag combining overwrite existing files & create destination structure
    EndIf
    ;backup Documents folder of each user
    If FileExists($folder&$profile&"\documents\"&"*.*") Then
        FileMove($folder&$profile&"\documents\"&"*.*", "C:\_Backup\"&$profile&"\Documents\", 9) ;flag combining overwrite existing files & create destination structure
    EndIf
    ;backup pictures folder of each user
    If FileExists($folder&$profile&"\pictures\"&"*.*") Then
        FileMove($folder&$profile&"\pictures\"&"*.*", "C:\_Backup\"&$profile&"\Pictures\", 9) ;flag combining overwrite existing files & create destination structure
    EndIf
    ;backup music folder of each user
    If FileExists($folder&$profile&"\music\"&"*.*") Then
        FileMove($folder&$profile&"\music\"&"*.*", "C:\_Backup\"&$profile&"\Music\", 9) ;flag combining overwrite existing files & create destination structure
    EndIf
    ;backup videos folder of each user
    If FileExists($folder&$profile&"\videos\"&"*.*") Then
        FileMove($folder&$profile&"\videos\"&"*.*", "C:\_Backup\"&$profile&"\Videos\", 9) ;flag combining overwrite existing files & create destination structure
    EndIf
    ;backup IEfavorites folder of each user
    If FileExists($folder&$profile&"\favorites\"&"*.*") Then
        FileMove($folder&$profile&"\favorites\"&"*.*", "C:\_Backup\"&$profile&"\IEFavorites\", 9) ;flag combining overwrite existing files & create destination structure
    EndIf
WEnd
FileClose($search)
;end of deletion of old shortcuts and copying of user files in backup directories.

I tried DirMove but I can confirm that windows wont let me move the whole eg: Desktop folder as its read only and I obviously dont want to screw up that account as well (in case we need to log into it) - so I don't want to for example delete the actual Desktop directory. Just move  

I dont know how to move only all the sub-directories of all the above folders eg: Desktop - and not move the directory eg: Desktop itself. is it 2 problems?

  • sub-directories are read only?
  • DirMove is not allowed to copy any sub-directories? 

Reason why I was asked to use FileMove and DirMove is that we are concerned of running out of C drive space if we use FileCopy and DirCopy (works on eg: Desktop dir)

How file structure of C:\_Backup should look like on each target workstation system:

  • but it should not move the for eg: C:\Users\Admin\Desktop but should move all of its files and folders.
  • Why move not copy? C drive space is limited on each workstation, so I don't want to create double the files. 
Example of Desired File structure of backup directory: C:\_Backup\

C:\_Backup\Admin\
                    .\Desktop\*  (includes all files & subdirectories)
                    .\Documents\*  (includes all files & subdirectories)
                    .\Downloads\*  (includes all files & subdirectories)
                    .\IEFavorites\*  (includes all files & subdirectories)
                    .\Music\*  (includes all files & subdirectories)
                    .\Pictures\*  (includes all files & subdirectories)
                    .\Vidoes\*  (includes all files & subdirectories)
C:\_Backup\Administrator\
                    .\Desktop\*  (includes all files & subdirectories)
                    .\Documents\*  (includes all files & subdirectories)
                    .\Downloads\*  (includes all files & subdirectories)
                    .\IEFavorites\*  (includes all files & subdirectories)
                    .\Music\*  (includes all files & subdirectories)
                    .\Pictures\*  (includes all files & subdirectories)
                    .\Vidoes\*  (includes all files & subdirectories)
C:\_Backup\Administrator.DomainName\
                    .\Desktop\*  (includes all files & subdirectories)
                    .\Documents\*  (includes all files & subdirectories)
                    .\Downloads\*  (includes all files & subdirectories)
                    .\IEFavorites\*  (includes all files & subdirectories)
                    .\Music\*  (includes all files & subdirectories)
                    .\Pictures\*  (includes all files & subdirectories)
                    .\Vidoes\*  (includes all files & subdirectories)
C:\_Backup\Default\
                    .\Desktop\*  (includes all files & subdirectories)
                    .\Documents\*  (includes all files & subdirectories)
                    .\Downloads\*  (includes all files & subdirectories)
                    .\IEFavorites\*  (includes all files & subdirectories)
                    .\Music\*  (includes all files & subdirectories)
                    .\Pictures\*  (includes all files & subdirectories)
                    .\Vidoes\*  (includes all files & subdirectories)
C:\_Backup\Default User\
                    .\Desktop\*  (includes all files & subdirectories)
                    .\Documents\*  (includes all files & subdirectories)
                    .\Downloads\*  (includes all files & subdirectories)
                    .\IEFavorites\*  (includes all files & subdirectories)
                    .\Music\*  (includes all files & subdirectories)
                    .\Pictures\*  (includes all files & subdirectories)
                    .\Vidoes\*  (includes all files & subdirectories)
C:\_Backup\User1
                    .\Desktop\*  (includes all files & subdirectories)
                    .\Documents\*  (includes all files & subdirectories)
                    .\Downloads\*  (includes all files & subdirectories)
                    .\IEFavorites\*  (includes all files & subdirectories)
                    .\Music\*  (includes all files & subdirectories)
                    .\Pictures\*  (includes all files & subdirectories)
                    .\Vidoes\*  (includes all files & subdirectories)
C:\_Backup\Public\
                    .\Desktop\*  (includes all files & subdirectories)
                    .\Documents\*  (includes all files & subdirectories)
                    .\Downloads\*  (includes all files & subdirectories)
                    .\IEFavorites\*  (includes all files & subdirectories)
                    .\Music\*  (includes all files & subdirectories)
                    .\Pictures\*  (includes all files & subdirectories)
                    .\Vidoes\*  (includes all files & subdirectories)

Anybody has any ideas or assistance? 

Might be a really simple thing that I missed. o:)

Something missing to the while loop? Maybe the whole while loop needs to be redesigned? ???

 

Edited by megaservo
removed a nonessential sentence

in process of thinking....

Share this post


Link to post
Share on other sites



#2 ·  Posted (edited)

I tried this: 

;-----take from the above script------
    ;backup desktop folder of each user
    If FileExists($folder&$profile&"\desktop\"&"*.*") Then
        ;FileMove($folder&$profile&"\desktop\"&"*.*", "C:\_Backup\"&$profile&"\Desktop\", 9) ;flag combining overwrite existing files & create destination structure
        DirMove($folder&$profile&"\Desktop\", "C:\_Backup\"&$profile&"\Desktop", 1)
    EndIf

DirMove worked this time for Desktop directory, but it moved the entire Desktop directory for every Desktop folder for each user profile

I just want to move files and subdirectories within Desktop directory of each user profile. 

Currently im not achieving the goal. 

Edited by megaservo
explain not working

in process of thinking....

Share this post


Link to post
Share on other sites

This seems to have worked. 

I also added #RequireAdmin at the top

and added this: 

;backup desktop folder of each user  --------
    If FileExists($folder&$profile&"\Desktop\"&"*.*") Then
        DirCopy($folder&$profile&"\Desktop\", "C:\_Backup\"&$profile&"\Desktop", 1)
    EndIf
    If FileExists($folder&$profile&"\Desktop\"&"*.*") Then
        FileRecycle($folder&$profile&"\Desktop\"&"*")
    EndIf
    If FileExists("C:\_Backup\"&$profile&"\Desktop"&"*.*") Then
        FileRecycleEmpty()
    EndIf

Seems to have worked. 

Need to do further testing. 

Is there a better way? 


in process of thinking....

Share this post


Link to post
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

  • Similar Content

    • ALIENQuake
      By ALIENQuake
      Hi,
      from the DirMove page we have:
      I'm facing exactly the same issue and I need a simplest way to fix it. Could somebody take look at this code:
      Func _Extract_MoveMod($p_Dir) Local $Success=0 $Files=_FileSearch($g_GameDir & '\' & $p_Dir, '*') For $f=1 to $Files[0] If StringInStr(FileGetAttrib($g_GameDir & '\' & $p_Dir & '\' & $Files[$f]), "D") Then $Success = DirMove($g_GameDir & '\' & $p_Dir & '\' & $Files[$f], $g_GameDir, 1) Else $Success = FileMove($g_GameDir & '\' & $p_Dir & '\' & $Files[$f], $g_GameDir & '\', 1) EndIf If $Success = 0 Then Return 0 Next $Success = DirRemove($g_GameDir & '\' & $p_Dir, 1) Return $Success EndFunc ;==>_Extract_MoveMod and tell me how I can fix this inside that function?
      P.S. Why DirMove act such way is beyond my reason, especially as default and there is no flag to change it.
    • Wicked_Caty
      By Wicked_Caty
      I want to move the content of D:\downloads to D:\pictures in my program. I found DirMove, but that causes problems...
      Func Move($dest) DirMove("D:\downloads\", "D:\pictures\ABC\" & $dest) DirCreate("D:\downloads") EndFunc In a prior program exactly this piece of code did the job always properly, but now not anymore. The source path stays untouched, and a destination folder is created but empty.
      I don't have a clue why it doesn't work anymore now. I've checked it dozens of times, read the article about DirMove, tried it with dozens of different combinations, but none lead to the result. I want the content of D:\downloads in D:\pictures\ABC without having another downloads folder within the destination folder or anything else... Thanks!
      D:\downloads\cute_kitten.jpg should be D:\pictures\ABC\cute_kitten.jpg afterwards.
    • climmax
      By climmax
      Hi all,
      As a newby i need some help.
      I am trying to add time stamps to file names.
      But it has to do it only once. So i made a check on lenght of filename.
      If filename extention and Lenght  is correct it renames the file with a time stamp.
      I use a ini file for settings. and extentions what needs to be renamed.
      The script works but only once.
      it renames all the  files that are in the ini . like test.txt to text050102.txt
      But when there is 2 files. Like test.txt and  text050102.txt
      It does not rename the test.txt file
      where am i doing this wrong?
       
       
      #include <Array.au3> #include <File.au3> #include <MsgBoxConstants.au3> #include <WinAPIFiles.au3> $path = IniRead("RenameFiles.ini","General","InputFolder","Error") $TimeOption = IniRead("RenameFiles.ini","General","TimeOption","Error") Local $aArray = iniReadSection("RenameFiles.ini","EXT") For $i = 1 To $aArray[0][0] $search01 = FileFindFirstFile($path&"*"&$aArray[$i][0]) If $aArray="" Then MsgBox(0,"Error","Check RenameFiles.ini","","") Exit EndIf While 1 $File = FileFindNextFile($search01) $StringLenght= StringLen ($File) if $StringLenght= $aArray[$i][1] Then $FileSplit= StringSplit($File,".") $Time=FileGetTime ( $File ,$TimeOption ,0 ) If @error Then ExitLoop FileMove($path & $File, $path & $FileSplit[1] & $Time[3] & $Time[4] & $Time[5] & $aArray[$i][0], 0) Else ExitLoop EndIf WEnd FileClose($search01) next Ini file looks like:
      [General] ;Enter folder where the files are located: ;Example C:\test\ InputFolder=C:\FileRename\ ;Enter the option you want to use, for timestamp ;0 = Last modified (default) ;1 = Created ;2 = Last accessed TimeOption=0 ;Enter Files extensions that needs a timestamp. ;FileExtention=FileNameLenght (characters) ;Example .TRX.MAU (Dont forget the leading point) ;FileNameLenght = how many characters the filename contains. Including "." ;If filename is longer or shorter it wil not rename the file. ;Example TR150730.TRX.MAU = 16 characters. [EXT] .txt=8 .log=8  
    • OliverA
      By OliverA
      Where is the error?

      ; DIRMOVE? $sDestination = "C:\Destination" $sName = "Folder" $sSource = @DesktopDir & "\" & $sName DirCreate($sDestination) DirCreate($sSource) Sleep(2000) ; Just for test DirMove($sSource, $sDestination) If @error = 0 Then ConsoleWrite("ERROR")
      I see both folder, but $sSource don't move to $sDestination...
      DirMove return 0
    • owensct
      By owensct
      Hi All,

      I've got a head scratcher that I am hoping someone could help me with as I'm trying to finsih up some code for our HR department that I need to put into production by Monday morning.

      I have written a Autoit script that shuts down a database engine and then does a copy of the database to a folder on the database server. Unfortunately the backup space on the server is limited so I have been manually moving the backups to another server twice a week until I could find the time to automate the move of the files and folders as part of the script. Well the time to automate it is this weekend per my CIO.

      Because the end users may do multiple backups in a given day, I have assigned the month-day-year_hours-minutes-seconds to a variable and I rename the initial backup folder and logfile by appending the datetime variable to them. So the folder Daily_ becomes Daily_06302012_192515 and Daily_.log becomes Daily_06302012_192515.log. Using the FileMove function I have been able to get it to move the log file but for the life of me I can't get it to move the folder . So I tried to use DirMove, but I can't get it to work either. The process runs, but the folder in still on the original server when it finishes. The code I am using to try and accomplish this is as follows:

      $datetime = @MON & @MDAY & @YEAR & "_" & @hour & @min & @SEC
      RunWait('PsExec \\RHP-VMS-001 robocopy "\\RHP-VMS-001\ANSOSONESTAFF\DATA" "\\Rhp-vms-001 Staff_backups\OS_Daily\daily_" /COPYALL /S /E /V /LOG+:"
      RunWait(@comspec & " /c ren \\rhp-vms-001\staff_backups\OS_Daily\daily_ Daily_" & $datetime)
      RunWait(@comspec & " /c ren \\Rhp-vms-001\staff_backups\OS_Daily\Daily_.log Daily_" & $datetime & ".log")
      RunWait('sc \\RHP-VMS-001 start "Pervasive.SQL (relational)"', '', @SW_HIDE, 2)
      RunWait('sc \\RHP-VMS-001 start "Pervasive.SQL (transactional)"', '', @SW_HIDE, 2)
      FileMove("\\rhp-vms-001\staff_backups\OS_Daily\*.*", "\\rhp-diskbackup\onestaff\OSTest_Daily")
      DirMove("\\rhp-vms-001\staff_backups\OS_Daily\Daily_" & $datetime, "\\rhp-diskbackup\onestaff\OSTest_Daily")
      Else
      MsgBox(0,"One Staff Backup", "Database engine is down please contact the IS Department")
      Exit
      etc
      etc

      Any help is greatly appreciated as I can;t seem to fignure out what I'm doing wrong.

      Thanks

      Gordon