|
v8: Как скопировать папки с файлами? | ☑ | ||
---|---|---|---|---|
0
LopesLeonid
31.08.12
✎
11:08
|
Как скопировать папки с файлами в одну папку
пример папка Name_1 содержит паку name1 с файлами папка Name_2 содержит паку name1 с файлами папка Name_3 содержит паку name1 с файлами папка Name_4 содержит паку name1 с файлами ...... папка Name_N содержит паку name1 с файлами В папке Name_N есть другие папки с файлами. Нужно скопировать в одну папку Out все папки name1 c именем Name_N Как лучше эту проблему решить? |
|||
1
andrewks
31.08.12
✎
11:13
|
совсем народ обленился...
|
|||
2
Reset
31.08.12
✎
11:23
|
КопироватьФайл()
СоздатьКаталог() "Как лучше эту проблему решить?" А какие у тебя варианты? |
|||
3
hhhh
31.08.12
✎
11:29
|
(0) как угодно, но только не через 1С.
|
|||
4
LopesLeonid
31.08.12
✎
13:00
|
всем спасибо уже сам сделал
|
|||
5
LopesLeonid
31.08.12
✎
13:01
|
и не через 1С
) |
|||
6
LopesLeonid
05.09.12
✎
10:36
|
set FSO=CreateObject("Scripting.FileSystemObject")
Set objExplorer = WScript.CreateObject("InternetExplorer.Application") objExplorer.Navigate "about:blank" objExplorer.ToolBar = 0 objExplorer.StatusBar = 0 objExplorer.Width=500 objExplorer.Height = 200 objExplorer.Left = 0 objExplorer.Top = 0 Do While (objExplorer.Busy) Wscript.Sleep 200 Loop objExplorer.Visible = 1 diskC = Array(1, 7, 3, 11, 5) diskD = Array(6, 2, 8, 4, 10) diskE = Array(15, 14, 23, 12, 11) diskA = Array(25, 22, 27, 26, 31, 30, 32) Function copyVideo(dayOnDisk, nameDiskFrom, folderName) dim day For j = 0 To UBound(dayOnDisk) if dayOnDisk(j) <= 9 then day = "0"&dayOnDisk(j) else day = dayOnDisk(j) End if objExplorer.Document.Body.InnerHTML = "<b>Копирование:</b><br><br><b>Откуда:</b> "&nameDiskFrom&"\"&folderName&"\"&day&"-08-2012\cam12 "&"<br> <b>Куда:</b> H:\Август2012\"&day&"-08-2012\cam12" FSO.CreateFolder "H:\"&day&"-08-2012" FSO.CreateFolder "H:\"&day&"-08-2012\cam12" 'FSO.CopyFolder nameDiskFrom&"\"&folderName&"\"&day&"-08-2012\cam12","H:\Август2012\"&day&"-08-2012\cam12" Next End Function copyVideo diskC, "C:", "data" copyVideo diskD, "D:", "data_2" copyVideo diskE, "E:", "data_3" copyVideo diskA, "A:", "data_4" objExplorer.Visible = 0 Set objExplorer = Nothing Set FSO = Nothing WScript.echo "Копирование завершено" сделал так, может кому пригодится |
|||
7
Heckfy
05.09.12
✎
10:43
|
Херасе О_О. А командасистемы и xcopy не проще будет???
|
|||
8
LopesLeonid
05.09.12
✎
10:44
|
(7) что нашел тем и пользовался
наверное проще) |
|||
9
Kreont
05.09.12
✎
10:46
|
Чем только не обходят лишь бы ДОС не учить :)))
|
|||
10
LopesLeonid
05.09.12
✎
10:55
|
(9) а vbs кто учить будет)
|
Форум | Правила | Описание | Объявления | Секции | Поиск | Книга знаний | Вики-миста |