1

голосов
2

ответ
63

Просмотры

Excel VBA CMD в список содержимого каталога

Как я могу изменить этот Excel VBA для: Перечислите пути каталогов, а не только файлы? Фильтр из системы и скрытые файлы? Вот это ток VBA: Sub MM () Dim fResults как вариант fResults = GetFiles ( "C: \ Temp") Range ( "A1") Изменение размера (UBOUND (fResults) + 1, 1) .Value = _ WorksheetFunction.. транспонировать (fResults) End Sub // UDF для заполнения массива с файлами, присвоить переменной Variant. Функция GetFiles (parentFolder As String) Как вариант GetFiles = Фильтр (Split (CreateObject ( "WScript.Shell"). Exec ( "CMD / C DIR """ & parentFolder & _ IIF (Right (parentFolder, 1) = "\" , vbNullString, "\") & "*. *" "/ S / B /A:-D").StdOut.ReadAll, vbCrLf),". ") End Function
BadDogTitan
0

голосов
2

ответ
23

Просмотры

VBA для извлечения Даты из файла Пути

У меня есть ряд файлов для отслеживания в электронной таблице Excel. Они хранятся в папках по дате. Иногда файл был изменен, а затем повторно, так что имя пути к файлу является переменным. Формат даты постоянен «YYYY MM DD». Примеры: G: \ Входящие \ Folder1 \ Полученное \ 2019 03 01 \ Final G: \ Входящие \ Folder1 \ Полученное \ 2019 03 01 \ 2019 03 02 \ 2019 03 05 \ Final Использование Excel VBA, как извлечь только последнюю дату от пути к файлу?
BadDogTitan
-2

голосов
1

ответ
12

Просмотры

Использование PowerShell для перебора файлов в одной папке, а также создавать текстовые файлы, используя эти имена

Ищу скрипт для создания текстового файла для каждого файла в папке. Файл .txt должен использовать имя файла для каждого файла в этой папке, но имеет расширение .txt вместо исходного расширения. Мне нужно сделать это в несколько папок, так что я хотел бы, чтобы открыть окно PowerShell в этой папке, а также создавать текстовые файлы там (вместо того, чтобы указать путь) только. Я нашел этот бит, который близок, но он добавляет имя папки и расширение в результате .txt файл Get-ChildItem -Path «C: \ Temp» -Recurse | ForEach {[System.IO.File] :: WriteAllText (. "C: \ Temp" + $ _ Name + ".txt", $ _ FullName.)}
BadDogTitan