sub Create_Directory {
	
	my ( %Parameter ) = @_;
	
	print "PARAMETER : $Parameter{ Directory }" . "\n";
	
	my ( @Directories_Store ) = split( /\// , $Parameter{ Directory } );
	
	my $Directories_Store_Counter = @Directories_Store;

	my $Device = substr( $Parameter{ Directory } , 0 , 2 );
	
	splice @Directories_Store, 0 , 1;

	my $DIR;	
	
	my $Errors = 0;
	
	foreach my $Directory( @Directories_Store )
	{		
		$DIR .= '/' . $Directory;
		
		my $FH_Directory = $Device . $DIR;
		
		if( !( -e $FH_Directory ) )
		{
			print "[ INFO ] The directory '$FH_Directory' could not be found !" . "\n";
			
			my $FH_Diretory_Status = mkdir( $FH_Directory , 0777 );
			
			if( $FH_Diretory_Status eq '0' )
			{
				print "[ ERROR ] The directory '$FH_Directory' could not be created !";
				return 'Failure';
			}

			if( $FH_Diretory_Status eq '1' )
			{
				print "[ INFO ] The directory '$FH_Directory' was created successfully !" . "\n";
			}
			
		} else {
				  print "[ INFO ] The directory '$FH_Directory' already exists !" . "\n";
			   }
	}
	
	return 'Success';
}