VBS/WSH/JS - перенос НЕ открытых документов в другую папку

[SaTaNick]

есть папка с подпапками! Необходимо перенести все не открытые документы (txt,doc,xls) в другую папку! Как реализовать?

[SaTaNick]

1. В чём могут быть открыты документы, по каждому типу: txt, doc, xls? Перечислите.

2. Какая операционная система?

[Iska]

1. Word, excel, Текстовые редакторы(блокнот, Bred2, Notepad++, возможно и другие) вообщем используемые файлы в текущий момент

2. WinXP SP3 + Pre-SP4 v.9.11.28

[SaTaNick]

SaTaNick, какие конкретно версии MS Office используются? Как могут быть открыты файлы: локально, по сети или и локально, и по сети?



Сразу скажу, что, в случае локального открытия файлов приложениями «Блокнот», «Bred2/3», «Notepad++», определить данное обстоятельство постфактум — весьма проблематично, поскольку ни одно из этих приложений не держит загруженный документ открытым (как, например, Word/Excel). Можно, конечно, поиграться с отслеживанием классов открытых окон и их заголовков, но без гарантии.



Зачем сие действо (перенос, за исключением открытых в данный момент) нужно, какова, так сказать, глобальная цель?

[amel27]

Цитата Iska:



Зачем сие действо (перенос, за исключением открытых в данный момент)

VBS/WSH/JS - перенос НЕ открытых документов в другую папку

возможно, проблема в прерывании при операции над открытым объектом, придется перебирать все файлы:



Код:

Код: Выделить всё

On Error Resume Next
Set objFSO = CreateObject("Scripting.FileSystemObject")
MoveDir "C:\TEST\FROM", "C:\TEST\TO"
Sub MoveDir(sDirFrom, sDirTo)
  On Error Resume Next
  Dim oD, cF, cD, oI, sD
  Set oD = objFSO.GetFolder(sDirFrom)
  Set cF = oD.Files
  Set cD = oD.SubFolders
  For Each oI In cF
    oI.Move sDirTo &"\"
  Next
  For Each oI In cD
    sD = sDirTo & "\" & oI.Name
    If Not objFSO.FolderExists(sD) Then objFSO.CreateFolder sD
    MoveDir oI.Path, sD
  Next
' If oD.Size = 0 Then oD.Delete
End Sub

[SaTaNick]

Цитата Iska:



версии MS Office

VBS/WSH/JS - перенос НЕ открытых документов в другую папку

- 2007, все это локально!



Возможно ли это без текстовых (*.txt) файлов?




Цитата Iska:



глобальная цель?

VBS/WSH/JS - перенос НЕ открытых документов в другую папку

Все просто! Лень искать в подпаках не открытые (не используемые) файлы и переносить их в отдельную папку по одиночке для последующего анализа!

может bat'ником это можно сделать?