Запустить файл переименовать текстовую строку как оператор VBA

Question

Я хочу переименовать файлы с помощью команды VBA, хранящейся в текстовом поле подформата MS Access. Можно заметить, что команды VBA генерируются с использованием формулы конкатенации из запроса базы данных и копируются в текстовое поле.

Это по существу код, который я пытаюсь использовать, но я получаю runtime error 2434 - The expression you entered contains invalid syntax. Возможно, лучший способ, чем использование команды eval().

Public Function BulkRenameFile() 
    Dim script As String 
    script = "Name ""c:\ipfimport\PE2258N2754\2620.jpg"" As ""c:\ipfimport\PE2258N2754\PE2258N2754_PH1_20141216_2620.jpg""" 
    BulkRenameFile = Eval(script) 
    MsgBox ("Photo Renaming Complete") 
End Function 

Любая помощь будет очень признательна.

Answer 1

В конце концов я изменил выражение поля в моем запросе, который строит команду переименования из кода VBA в DOS один. Я вставляю полный столбец Datasheet кодов DOS переименования в текстовое поле. Текстовое поле экспортируется как .txt-файл, а затем запускается как .bat в командной оболочке Windows DOS.

пример DOS переименовывать команду вставить в текстовое поле:

rename "c:\ipfimport\PE2152N2380\*7112.jpg" "PE2152N2380_LT_T25_20140516_7112.jpg" 
 
rename "c:\ipfimport\PE2152N2380\*7113.jpg" "PE2152N2380_LT_T25_20140516_7113.jpg"

Окончательный рабочий код:

Function FileRename() 
 
    
 
Dim fso As New FileSystemObject 
 
Dim stream As TextStream 
 

 
strPath = [Forms]![File Rename > Main].Text_FilePathBase.Value 
 
strFile = "Rename.bat" 
 

 
Set stream = fso.CreateTextFile(strPath & strFile, True) 
 

 
Debug.Print strPath & strFile 
 

 
strForm = [Forms]![File Rename > Main].Text_PasteRenameScript.Value 
 

 
stream.Write strForm 
 

 
stream.Close 
 
Set fso = Nothing 
 
Set stream = Nothing 
 

 
Call Shell(strPath & strFile, vbNormalFocus) 
 

 
MsgBox ("Renaming Complete") 
 

 
End Function

Answer 2

Я размещаю здесь две разные процедуры, первый для переименования одного файла, а второй для переименования всех файлов в папку (или перемещение файлов из папки в другую). Второй принимает фильтр для переименования только определенного типа файлов. Они оба используют компонент FileSystemObject (вы должны включить Runtime Microsoft Scripting Runtime).

'-------------------------------------------------------- 
' Rename a file (returns the number of error, if any) 
'-------------------------------------------------------- 
Public Function FileRename(strSourceFileName As String, strTargetFileName As String) As Integer 
On Error GoTo Err_FileRename 
    Dim fso As FileSystemObject 

    Set fso = New FileSystemObject 

    fso.MoveFile strSourceFileName, strTargetFileName 

    Set fso = Nothing 

Exit_FileRename: 
    FileRename = Err.Number 
    Exit Function 

Err_FileRename: 
    GoTo Exit_FileRename 

End Function 

---

'-------------------------------------------------------- 
' Massively rename files 
'-------------------------------------------------------- 
Public Sub MoveFiles(SourceFolderPath As String, DestinationFolderPath As String, 
        _ Optional FileFilter As String = "*.*") 

    Dim fso As FileSystemObject, fld As Folder, fil As File 
    Dim strDestinationFilePath As String 

    Set fso = New FileSystemObject 
    Set fld = fso.GetFolder(SourceFolderPath) 

    For Each fil In fld.Files 

     If fil.Name Like FileFilter Then 

      strDestinationFilePath = DestinationFolderPath + "\" + fil.Name 
      FileMove fil.Path, strDestinationFilePath 

     End If 

    Next fil 

    Set fld = Nothing 
    Set fso = Nothing 
End Sub 

---