Страница: 1 | 
		
		 
			   
			 
			 
			 
			 Страница: 1 | 
 
			
 
  
		
     
  
    
Вопрос: копирование в папку с сегодняшней датой
     
    
Добавлено: 04.07.11 15:19
     
      
  
				
			  
					 
			
				 
    
		
       
    
Автор вопроса:  
    
 omne
      
       
  
Как создать папку с сегодняшней датой я знаю а вот как в нее скопировать
 
    
Dim s
Set WshShell = CreateObject("WScript.Shell")
On Error Resume Next
dim d,m,y
d = day(date())
m = month(date())
y = year(date())
if d < 10 then
d = "0" & d
end if
if m < 10 then
m = "0" & m
end if
s = y & "_" & m & "_" & d
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.CreateFolder(s)
				
		
		
					 
			
				 
  
		
     
  
    
Ответы
     
    
Всего ответов: 4
     
      
  
		
	  
			 
	
		 
    
       
    
Номер ответа: 1 
      
Автор ответа:
 AgentFire
![]()
![]()
![]()
ICQ: 192496851 
Вопросов: 75
Ответов: 3178
      
 Профиль |  | #1
       
Добавлено:  04.07.11 15:20
       
    
       
  
CopyFile?
 
    
		
	  
			 
	
		 
    
       
    
Номер ответа: 2 
      
Автор ответа:
 omne
![]()
![]()
Вопросов: 5
Ответов: 15
      
 Профиль |  | #2
       
Добавлено:  04.07.11 17:21
       
    
       
  
CopyFile? Прекрасная команда только дело в том что я не знаю как записать эту команду с учетом того что папка будет получать каждый день новое имя.
 
    
		
	  
			 
	
		 
    
       
    
Номер ответа: 3 
      
Автор ответа:
 AgentFire
![]()
![]()
![]()
ICQ: 192496851 
Вопросов: 75
Ответов: 3178
      
 Профиль |  | #3
       
Добавлено:  04.07.11 17:35
       
    
       
  
Хочу пойти туда не зная куда скопировать то не знаю что?)
 
    
		
	  
			 
	
		 
    
       
    
Номер ответа: 4 
      
Автор ответа:
 omne
![]()
![]()
Вопросов: 5
Ответов: 15
      
 Профиль |  | #4
       
Добавлено:  04.07.11 20:06
       
    
       
  
Мне надо что бы скрипт создавал папку сегодняшним числом и скопировал в нее с носителя фотографии.