Код VBA для поиска и переименования первого CSV-файла в папке - PullRequest
Новая
       21

Код VBA для поиска и переименования первого CSV-файла в папке

0 голосов
/ 21 апреля 2019

Мне нужен код VBA, который находит и переименовывает только первый CSV-файл в папке.Вот что у меня так далеко, но я знаю, что что-то упустил.

Sub Rename_first 

Set objWMIService = GetObject("winmgmts:\\.\root\cimv2")
Set colFiles = objWMIService.ExecQuery _
    ("Select Name from CIM_DataFile  where Drive='C:' and Path = '\\Users\\Desktop\\CSV FILES\\' And Name Like '%csv%'")

Dim files() As String
ReDim files(1 To colFiles.Count)
Dim name As String
Dim i As Integer: i = 1
Dim strfile As String
For Each objFile In colFiles
  files(i) = objFile.name
  i = i + 1
Next

QuickSort files, 1, colFiles.Count

If colFiles.Count >= 1 Then

 Name objWMIService As Big

End If

End Sub

...