@SneakyThrows
private String loadUrlDocument(final String name) {
log.debug("Document URL {} downloaded successfully", name);
return minioClient.getPresignedObjectUrl(
GetPresignedObjectUrlArgs.builder()
.method(Method.GET)
.bucket(minioProperties.getBucket())
.object(name)
.expiry(5, TimeUnit.MINUTES)
.build());
}
bucket: documents
url: http://minio:9000
accessKey: minioadmin
secretKey: minioadmin
cloud:
build:
context: ./cloud
container_name: "cloud"
networks:
- app-network
depends_on:
- postgres
ports:
- "8084:8084"
minio:
image: minio/minio:latest
container_name: minio
networks:
- app-network
environment:
- MINIO_ROOT_USER=${MINIO_ASSES_KEY}
- MINIO_ROOT_PASSWORD=${MINIO_SECRET_KEY}
command: server ~/minio --console-address :9090
ports:
- ‘9090:9090‘
- ‘9000:9000‘
volumes:
- "/data:/data"
networks:
app-network:
driver: bridge
Const BeginFolder="D:"
Dim objFolder, objShell
Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.BrowseForFolder(0, "Выбирайте папку для обработки", 1, BeginFolder)
If Not (objFolder Is Nothing) Then
wscript.echo "Folder: " & objFolder.title
wscript.echo "Full Path: " & objFolder.Self.path
Else
Msgbox "Папка не выбрана"
End If
@echo off
setlocal
for /f "tokens=2 delims=:" %%i in (‘chcp‘) do (
set sPrevCP=%%i
chcp 1251 >nul
)
for /f "usebackq delims=" %%i in (
`@"%systemroot%\system32\mshta.exe" "about:<FORM><INPUT type=‘file‘ name=‘qq‘></FORM><script>document.forms[0].elements[0].click();var F=document.forms[0].elements[0].value;try {new ActiveXObject(‘Scripting.FileSystemObject‘).GetStandardStream(1).Write(F)};catch (e){};close();</script>" ^
1^|more`
) do set sFileName=%%i
chcp %sPrevCP% >nul
if defined sFileName (
echo Выбран файл: [%sFileName%].
) else (
echo Файл не был выбран.
)
endlocal
exit /b 0
StartF = "Z:\Муз"
Set App = CreateObject("Excel.Application")
With App.FileDialog(3)
.AllowMultiSelect = False
.Title = "Выбрать файлы для меня" ‘заголовок окна диалога
.Filters.Clear ‘очищаем установленные ранее типы файлов
.Filters.Add "Медиафайлы", "*.mp*;*.flac", 1 ‘устанавливаем возможность выбора только файлов Excel
.Filters.Add "Текстовые файлы", "*.txt", 2 ‘добавляем возможность выбора текстовых файлов
.FilterIndex = 1 ‘устанавливаем тип файлов по умолчанию - Text files(Текстовые файлы)
.InitialFileName = StartF ‘назначаем папку отображения и имя файла по умолчанию
.InitialView = 4 ‘вид диалогового окна(доступно 9 вариантов)
If .Show = 0 Then
MsgBox "Файл не выбран"
Else
For lf = 1 To .SelectedItems.Count
MsgBox .SelectedItems(lf)
Next
End If
End With
У попа была собака,
Он ее любил.
Она съела кусок мяса —
Он ее убил.
https://www.inpearls.ru/