[Iska]

surrender1, главная проблема — как выделить адреса. В связи с этим три вопроса:

1) перечислите все возможные корневые домены Ваших адресов электронной почты: «.ru», «.com» и т.д.;
2) фамилия/имя всегда на русском или может быть и латиница?
3) укажите Вашу ОС.

[surrender1]

1. На данный момент имеються ru, com, co.cc, но могут быть любые.
2. Ну на английском пока не встречалось, но может быть и такое.
3. XP, может быть когда ни будь server 2003.

[Iska]

1. На данный момент имеються ru, com, co.cc, но могут быть любые. 2. Ну на английском пока не встречалось, но может быть и такое. »

В таком случае, я не представляю себе, каким образом можно будет гарантированно распознать конец корневого домена и начало имени. Пока что можно, например, так, на WSH (если у кого-нибудь, особо, гм, продвинутого, нет домена «.рф»):

читать дальше »

Код:

Option Explicit

Dim strSourceFolder 'в определенной папке
Dim strDestFolder   'Существует каталог, пусть будет d:\какаятопапка.
Dim strNewFolder    'создал каталог (если такого еще не имеется) с именем адреса электронной почты

Dim objFSO
Dim objFile


strSourceFolder = "E:\Песочница\0324"
strDestFolder   = "d:\какаятопапка"

Set objFSO = WScript.CreateObject("Scripting.FileSystemObject")

If objFSO.FolderExists(strSourceFolder) Then
	If objFSO.FolderExists(strDestFolder) Then
		With WScript.CreateObject("VBScript.RegExp")
			.Pattern = "^(.+@.+?)([А-Яа-я ]+\..*)$"
			
			For Each objFile In objFSO.GetFolder(strSourceFolder).Files
				If .Test(objFile.Name) Then
					With .Execute(objFile.Name)
						strNewFolder = objFSO.BuildPath(strDestFolder, .Item(0).Submatches(0))
						
						If Not objFSO.FolderExists(strNewFolder) Then
							objFSO.CreateFolder strNewFolder
						End If
						
						objFile.Name = .Item(0).Submatches(1)
						objFile.Move strNewFolder & "\"
					End With
				End If
			Next
		End With
	Else
		WScript.Echo "Can't find destination folder [" & strDestFolder & "]."
	End If
Else
	WScript.Echo "Can't find source folder [" & strSourceFolder & "]."
End If

Set objFSO = Nothing

WScript.Quit 0

[surrender1]

Цитата surrender1: 1. На данный момент имеються ru, com, co.cc, но могут быть любые. 2. Ну на английском пока не встречалось, но может быть и такое. » В таком случае, я не представляю себе, каким образом можно будет гарантированно распознать конец корневого домена и начало имени. Пока что можно, например, так, на WSH (если у кого-нибудь, особо, гм, продвинутого, нет домена «.рф»): »

Корневой домен зависит от пользователей, на данный момент существуют пользователи со стандартными ru и com (ну и не стандартный co.cc), и с именами и фамилиями на русском языке. Как будет дальше, кто его знает...
За скрипт спасибо огромнейшее!
Существует возможность имя файлов формировать с пробелом между е-мылом и фамилией именем. Тогда наверное можно разделять по первому пробелу. Такое ведь возможно?

[surrender1]

Еще один момент, если впервые создается каталог с именем адреса электронной почты, то необходимо, что бы в этом каталоге создался каталог "отправленные" (для архивирования).

[Iska]

Существует возможность имя файлов формировать с пробелом между е-мылом и фамилией именем. Тогда наверное можно разделять по первому пробелу. Такое ведь возможно? »

Конечно. Тогда можно будет обойтись и простым пакетным файлом. Нужен?

Еще один момент, если впервые создается каталог с именем адреса электронной почты, то необходимо, что бы в этом каталоге создался каталог "отправленные" (для архивирования). »

Добавьте:

Код:

objFSO.CreateFolder objFSO.BuildPath(strNewFolder, "отправленные")

после:

Код:

objFSO.CreateFolder strNewFolder

[surrender1]

Цитата surrender1: Существует возможность имя файлов формировать с пробелом между е-мылом и фамилией именем. Тогда наверное можно разделять по первому пробелу. Такое ведь возможно? » Конечно. Тогда можно будет обойтись и простым пакетным файлом. Нужен? Цитата surrender1: Еще один момент, если впервые создается каталог с именем адреса электронной почты, то необходимо, что бы в этом каталоге создался каталог "отправленные" (для архивирования). » Добавьте: Код: objFSO.CreateFolder objFSO.BuildPath(strNewFolder, "отправленные") после: Код: objFSO.CreateFolder strNewFolder »

Спасибо. что то наподобие я уже сам написал )) только с добавлением еще одной переменной.
А на счет "Существует возможность имя файлов формировать с пробелом между е-мылом и фамилией именем. Тогда наверное можно разделять по первому пробелу. Такое ведь возможно?" можно что нибудь придумать?

[Iska]

можно что нибудь придумать? »

Можно:

читать дальше »

Код:

@echo off
setlocal enableextensions enabledelayedexpansion

set sSourceFolder=C:\Песочница\034
set sDestFolder=d:\какаятопапка

if exist "%sSourceFolder%\." (
	pushd "%sSourceFolder%"
	
	if exist "%sDestFolder%\." (
		for /f "usebackq tokens=1* delims= " %%i in (`dir /b /a:-d /o:n "*@*.*"`) do (
			set sNewFolder=%sDestFolder%\%%~i
			if not exist "!sNewFolder!\." md "!sNewFolder!"
			if not exist "!sNewFolder!\отправленные\." md "!sNewFolder!\отправленные"
			>nul copy /y "%%~i %%~j" "!sNewFolder!\%%~j"
			del /f /q "%%~i %%~j"
		)
	) else (
		echo Can't find destination folder [%sDestFolder%].
	)
	
	popd
) else (
	echo Can't find source folder [%sSourceFolder%].
)

endlocal
exit /b 0

[surrender1]

Спасибо. Выручил!