Check NAS.au3

; Script Start - Add your code below here
#include<ButtonConstants.au3>
#include<GUIConstantsEx.au3>
#include<GUIConstants.au3>
#include<Array.au3>
#include <RecFileListToArray.au3>


Func CheckNAS()
$sIfExist = DriveMapGet('U:')
If $sIfExist = '\\10.193.2.1\Backups' Then
Else
	DriveMapAdd('U:', '\\10.193.2.1\Backups', 1, 'admin', 'agemoi123')
EndIf
Local $aNASDir = _RecFileListToArray('U:', '*', 2, 0, 0, 0) 		;--- Ïîëó÷åíèå ñïèñêà ïàïîê â Backups íà NAS
Local $iUserDirExist = _ArraySearch( $aNASDir, @UserName)			 ;---  Ïîèñê ïàïêè â ìàñèâå ñ èìåííåì @UserName

If $iUserDirExist > -1 Then 										;--- Ïðîâåðêà - ñóùåñòâóåò ëè ïàïêà @UserName
	$iUserDirExist = _ArraySearch( $aNASDir, '_' & @UserName)
	If $iUserDirExist > -1 Then										;--- Ïðîâåðêà - ñóùåñòâóåò ëè ïàïêà '_' & @UserName
		DirRemove('U:\' & '_' & @UserName, 1)
		DirMove('U:\' & @UserName, 'U:\' & '_' & @UserName)
		;DirCreate('U:\' & @UserName)								;--- Ìîæíî äîáàâèòü ïðîâåðêó íà îøèáêè - ôóíêöèÿ âîçâðàùàåò 1 åñëè ñîçäàíà èëè 0 åñëè íåò
		Sleep(5000)
		DirCreate('U:\' & @UserName & '\' & @UserName)				;---
	Else
		DirMove('U:\' & @UserName, 'U:\' & '_' & @UserName)
		;DirCreate('U:\' & @UserName)
		Sleep(5000)
		DirCreate('U:\' & @UserName & '\' & @UserName)
	EndIf
Else
	;DirCreate('U:\' & @UserName)
	Sleep(1500)
	DirCreate('U:\' & @UserName & '\' & @UserName)
EndIf

EndFunc

CheckNAS()
MsgBox(4096, '', 'ok')