Manage projects of all sizes how you want. Great for personal to-do lists, project milestones, team priorities and launch plans.
- Combine task lists, docs, spreadsheets, and chat in one
- View and edit from mobile/offline
- Cut down on emails
Public Sub RenameFiles() Dim fso As Scripting.FileSystemObject Dim vFiles As Variant Dim i As Long Dim oFile As Scripting.File Dim sFilePath As String Const cFILE_PATH As String = "C:\Temp" Set fso = New Scripting.FileSystemObject vFiles = ActiveSheet.Cells(1).CurrentRegion.Value For i = 1 To UBound(vFiles, 1) With fso sFilePath = .BuildPath(cFILE_PATH, vFiles(i, 1)) If .FileExists(sFilePath) Then Set oFile = .GetFile(sFilePath) oFile.Name = vFiles(i, 2) End If End With Next i End Sub
Join the community of 500,000 technology professionals and ask your questions.
Connect with top rated Experts
19 Experts available now in Live!