' проверяем выбрал ли пользователь кого -нибудь
If Option1.Value = False And Option2.Value = False Then
MsgBox "ВЫБЕРИТЕ МУЖЧИНА ИЛИ ЖЕНЩИНА", vbInformation
Exit Sub
End If
'*******************************************************************
'Работа с датами и веременем
'Date
'возвращает текущую системную дату
'Month
'возвращает номер месяца для заданной даты
' MonthName
'возвращает полное или сокращенное название месяца по его номеру
'Year
'определяет год из даты
mymonth = MonthName(Month(Date))
myYear = Year(Date)
'*******************************************************************
'Работа с папками
' не забываем подключить Microsoft Scripting Runtime
Set fso = New Scripting.FileSystemObject
' проверяем есть ли папка текущего года
If Not fso.FolderExists(App.Path & "\documents\" & myYear) Then
    ' если нет такой , значит создадим
    fso.CreateFolder (App.Path & "\documents\" & myYear)
End If
' проверяем есть ли папка текущего месяца, вместо цифр будет название месяца
If Not fso.FolderExists(App.Path & "\documents\" & myYear & "\" & mymonth) Then
    ' если нет такой , значит создадим
    fso.CreateFolder (App.Path & "\documents\" & myYear & "\" & mymonth)
End If
If Option1.Value = True Then ' если выбран мужчина тогда
    ' проверяем есть ли папка man(мужчина)
    If Not fso.FolderExists(App.Path & "\documents\" & myYear & "\" & mymonth & "\" & "man") Then
        ' если нет такой , значит создадим
        fso.CreateFolder (App.Path & "\documents\" & myYear & "\" & mymonth & "\" & "man")
    End If
    Set f = fso.GetFolder(App.Path & "\temp") ' открываем папку промежуточную
        Set fc = f.Files ' массив файлов
        For Each f1 In fc
            fso.CopyFile App.Path & "\temp\" & f1.Name, _
            App.Path & "\documents\" & myYear & "\" & mymonth & "\man\" & _
            Mid(f1.Name,  1 , Len(f1.Name) -  4 ) & " (" & Format(Date, "DD.MM.YYYY") & "_" & _
            Format(Time, "HH-MM-SS") & ") " & ".doc"
        Next
End If
If Option2.Value = True Then ' если выбрана женщина тогда
' проверяем есть ли папка woman(женщина)
    If Not fso.FolderExists(App.Path & "\documents\" & myYear & "\" & mymonth & "\" & "woman") Then
        ' если нет такой , значит создадим
        fso.CreateFolder (App.Path & "\documents\" & myYear & "\" & mymonth & "\" & "woman")
    End If
     Set f = fso.GetFolder(App.Path & "\temp") ' открываем папку промежуточную
        Set fc = f.Files ' массив файлов
        For Each f1 In fc
            fso.CopyFile App.Path & "\temp\" & f1.Name, _
            App.Path & "\documents\" & myYear & "\" & mymonth & "\woman\" & _
            Mid(f1.Name,  1 , Len(f1.Name) -  4 ) & " (" & Format(Date, "DD.MM.YYYY") & "_" & _
            Format(Time, "HH-MM-SS") & " )" & ".doc"
        Next
End If
MsgBox "ГОТОВО", vbExclamation
Set fso = Nothing ' освобождаем память