Имя: Пароль:
1C
1С v8
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 кто учить будет)