Что нового

Автоматизация Перемещение файлов в папку с именем текущей даты

ytimoshenko

Новичок
Сообщения
3
Репутация
0
Доброго времени суток! Не смог найти ответ на свой вопрос на форуме, а сам только учусь! Есть задача- перемещать фото в сетевую папку где имя папки текущая дата. Целый день голову ломал.
 

joiner

Модератор
Локальный модератор
Сообщения
3,556
Репутация
628
Код:
#include <Date.au3>
FileCopy(@ScriptDir & '\file.txt', '\\User\' & _NowDate() & '\file.txt')

Один момент - возможно, придется менять формат даты. Либо dd/mm/yyyy либо в обратном порядке
 

IMStrelcov

CTPEJIbLLOB
Сообщения
253
Репутация
64
Один момент - возможно, придется менять формат даты. Либо dd/mm/yyyy либо в обратном порядке
_NowDate() можно заменить на
Код:
$sDate = @YEAR&'.'&@MON&'.'&@MDAY;год.месяц.число

или
Код:
$sDate = @MDAY&'.'&@MON&'.'&@YEAR;число.месяц.год

результат:
Код:
$sDate = @MDAY&'.'&@MON&'.'&@YEAR;число.месяц.год
FileCopy(@ScriptDir & '\file.txt', '\\User\' & $sDate & '\file.txt', 8);флаг 8 = создавать дерево каталогов, если путь назначения не существует
 
Автор
Y

ytimoshenko

Новичок
Сообщения
3
Репутация
0
Огромное спасибо! Проблема решена
Сообщение автоматически объединено:

Есть еще вопрос, как получить файлы с устройств? к примеру фотоаппарат в explorer его путь выглядит как Этот компьютер\Nikon\Internal Storage\DCIM.
прописал этот путь, но с него не копирует файлы
 
Последнее редактирование:

IMStrelcov

CTPEJIbLLOB
Сообщения
253
Репутация
64
Есть еще вопрос, как получить файлы с устройств?
Попробуй вот этот кусок кода, самому нет возможности проверить так как нет таких устройств.
Код:
$sSubFolder = 'DCIM'
;$sSubFolder = 'Internal Storage\DCIM'
;$sSubFolder = 'Nikon\Internal Storage\DCIM'

$sDrive = ''
$aDrive = DriveGetDrive("Removable")
If Not @error Then
    For $i = 1 To $iDrive[0]
        If FileExists($iDrive[$i]& '\'& $sSubFolder) Then
            $sDrive = $iDrive[$i]
            ExitLoop
        EndIf
    Next
EndIf

MsgBox(0, '', $sDrive& '\'& $sSubFolder)
 
Автор
Y

ytimoshenko

Новичок
Сообщения
3
Репутация
0
Я наверное не правильно сформулировал вопрос! нужно файлы с устройства перемещать в сетевую папку ( к примеру- фотоаппарат в explorer его путь выглядит как " Этот компьютер\Nikon\Internal Storage\DCIM" ) попробовав последний код он мне в конце выдает окно, где путь \DCIM
 
Верх