{quote}{login=Drony}{date=19.12.2007 09:53}{thema=Как при помощи VBA переименовать группу файлов на жестком диске ?}{post}Имеется "новая папка" , в ней отсканированные изображения с именами сгенерированными при сканирование программой для сканирования. В "новой папке" есть еще вложенная папка "новая папка(2)" в ней аналогичные файлы, но сделанные днем позже а имена начинаются с аналогичного имени что и в "новой папке" и т.д.  
 
Вопрос :  
Как при помощи VBA переименовать группу файлов, т.е. сквозными именами и в "новой папке" и во всех вложеных в нее папках.  
Что бы файлы имели имена : (например) "Отдых на море" + №1  
, "Отдых на море" + №2 и т.д.    
 
Да и адрес "новой папки" желательно не ручками вбивать , а выбирать из проводника...{/post}{/quote}  
 
 
воспользуйся чем-нибудь вроде Total Commander. Там есть функция группового переименования. Гораздо удобнее, чем писать макросы

как-то так. набросано на скорую руку, так что требует тщательной доработки напильником. не забудь подключить библиотеку micrisoft scrypting runtime  
 
Sub RenameFiles()  
 
Dim fs As New FileSystemObject  
Dim fl As Folder  
Dim fls As Files  
Dim f As File  
 
Set fl = fs.GetFolder("d:\на печать")  
Set fls = fl.Files  
 
n = 0  
For Each f In fls  
   'определяем тип файла  
   ex = Mid(f.Name, InStrRev(f.Name, "."), Len(f.Name) - InStrRev(f.Name, ".") + 1)  
     
   n = n + 1  
   Debug.Print "отдых на море-" & n & ex  
     
Next  
 
End Sub

Спасибо, посмотрю.  
 
Может у кого-нибуть еще есть предложения ?

Половину задачи решил - программно выбираю папку для обработки(получаю полный путь к ней).  
 
Теперь вопрос - как на лист вывести в столбец имена всех файлов из этой папки (например с расширением .xls) ?

{quote}{login=slan}{date=20.12.2007 11:53}{thema=}{post}dir  в цикле с маской *.xls  
счетчик цикла задает номер строки вывода{/post}{/quote}  
 
Спасибо.  
А по какому условию остановить цикл?

да, как указать , чтобы в цикле также перебирались все файлы.  
А то у меня ячейки перебирает, а вот в них вставляет только один файл ?

надо код смотреть, наверняка в цикле ошибка.  
 
как на этом форуме бороться с gateway&

Вот весь код :  
 
 
 
Sub BrowseForFolderShell()  
 
'     '//Minimum DLL version shell32.dll version 4.71 or later  
'     '//Minimum operating systems   Windows*2000, Windows NT 4.0 with Internet Explorer*4.0,  
'     '//Windows*98, Windows 95 with Internet Explorer*4.0  
   Dim objShell As Object  
   Dim objFolder As Object  
   Dim strFolderFullPath As String  
   Dim i As Integer  
       Set objShell = CreateObject("Shell.Application")  
    'oFolder = Shell.BrowseForFolder(Hwnd, sTitle, iOptions [, vRootFolder])
  Set objFolder = objShell.BrowseForFolder(0, "Ïîæàëóéñòà âûáåðåòå ïàïêó...", BIF_NEWDIALOGSTYLE Or BIF_USENEWUI, "MyDocuments") 'SpecFolders.CSIDL_FAVORITES  
       
   If (Not objFolder Is Nothing) Then  
        '// NB: If SpecFolder= 0 = Desktop then ....  
       On Error Resume Next  
       If IsError(objFolder.Items.Item.path) Then strFolderFullPath = CStr(objFolder): GoTo GotIt  
       On Error GoTo 0  
        '// Is it the Root Dir?...if so change  
       If Len(objFolder.Items.Item.path) > 3 Then  
           strFolderFullPath = objFolder.Items.Item.path & Application.PathSeparator  
       Else  
           strFolderFullPath = objFolder.Items.Item.path  
       End If  
   Else  
       MsgBox "Âû íàæàëè ÎÒÌÅÍÀ, è ñîîòâåòñòâåííî ÏÀÏÊÀ íå âûáðàíà": GoTo Xit  
   End If  
       
GotIt:  
'    MsgBox "You selected:= " & strFolderFullPath, vbInformation, "ObjectFolder:= " & objFolder  
    Cells(1, 1) = strFolderFullPath  
       
    For i = 2 To 5  
    Cells(i, 1) = Dir(strFolderFullPath & "*.xls")  
    Next i  
 
Xit:  
   Set objFolder = Nothing  
   Set objShell = Nothing  
       
End Sub  
 
 
необходимый цикл нужно организовать в конце кода.

{quote}{login=kaa}{date=20.12.2007 12:41}{thema=}{post}я бы не стал мудрить и циклом вынул бы названия файлов в массив, а потом перенес бы это на лист{/post}{/quote}  
а можно в примере, как загнать в массив, а после в ячейки ?  
А то я с массивами не совсем еще дружу...

немного не понятно.  
Можно рассмотреть конкретный пример :  
 
Есть папка D:\моя папка\  
В ней есть допустим 7 файлов    
 
море.jpg  
море1.jpg  
я на катере.jpg  
пароход.jpg  
восход.jpg  
волна.jpg  
просто.jpg  
 
 
 
(.jpg или .doc , т.е. файлы одного типа).    
Приведи пожалуйста пример макроса, который бы загнал бы все 7 имен файлов в ячейки с А1 по А7 ?  
И как программно узнать количество файлов в указанной папке ?

Вот есть подобный файл - он делает плайлист из содержащихся в указанной папке муз.файлов.  
Но как выдрать из нее нужный мне кусок я немогу понять..

{quote}{login=kaa}{date=19.12.2007 11:12}{thema=}{post}как-то так. набросано на скорую руку, так что требует тщательной доработки напильником. не забудь подключить библиотеку micrisoft scrypting runtime  
 
Sub RenameFiles()  
 
Dim fs As New FileSystemObject  
Dim fl As Folder  
Dim fls As Files  
Dim f As File  
 
Set fl = fs.GetFolder("d:\на печать")  
Set fls = fl.Files  
 
n = 0  
For Each f In fls  
   'определяем тип файла  
   ex = Mid(f.Name, InStrRev(f.Name, "."), Len(f.Name) - InStrRev(f.Name, ".") + 1)  
     
   n = n + 1  
   Debug.Print "отдых на море-" & n & ex  
     
Next  
 
End Sub{/post}{/quote}

{quote}{login=Drony}{date=20.12.2007 01:14}{thema=Re: }{post}{quote}{login=kaa}{date=20.12.2007 12:41}{thema=}{post}я бы не стал мудрить и циклом вынул бы названия файлов в массив, а потом перенес бы это на лист{/post}{/quote}  
а можно в примере, как загнать в массив, а после в ячейки ?  
А то я с массивами не совсем еще дружу...{/post}{/quote}  
 
вот так

Спасибо.  
все работает.Вот так - с мира по нитке - мне макрос !  
Позже выложу файл с палной рабочей процедурой...