Удаление файлов

[Kovu]

Можно ли каким-либо образом заставить выводить SHFileOperation ProgressBar при флаге FOF_NOCONFIRMATION ? Ибо как только этот флаг ставишь флаг FOF_SIMPLEPROGRESS не имеет действия

[Kovu]

Да, и попутный вопрос: как путь получаемый через GetTempPath Преобразовать к стандартному виду? (не все апи-функции воспринимают ~1)

[Konst_One]

см ф-ии с W на конце, а не с A

[Kovu]

А можно поподробней обяснить?
Я изменил декларацию на
Public Declare Function SHFileOperation Lib "shell32.dll" Alias "SHFileOperationW" (ByRef lpFileOp As SHFILEOPSTRUCT) As Long
Передаю соответственно SHO.pFrom = StrConv(AppPath + "*.*", vbUnicode)
Тем не менее функция не отрабатывает, аналогично и с другими функциями для работы с файлами

[Kovu]

Подскажите пожалуйста в какую сторону хотя бы рыть, чтобы преобразовать путь в полный

[Konst_One]

мне просто интересно, а что вы хотите сделать с ф-ей SHFileOperation Какова ваша цель?

[Andrey Fedorov]

Подскажите пожалуйста в какую сторону хотя бы рыть, чтобы преобразовать путь в полный

GetLongPathName

[Konst_One]

Код: Выделить всё

Private Const MAX_PATH = 260
Public Declare Function GetTempPath Lib "kernel32" Alias "GetTempPathA" (ByVal nBufferLength As Long, ByVal lpBuffer As String) As Long

Public Function FileTempPath() As String
Dim Res As Long

  FileTempPath = Space(MAX_PATH)
  Res = GetTempPath(MAX_PATH, FileTempPath)
  FileTempPath = Left$(FileTempPath, Res)

End Function

Вот это попробуйте для начала.

[Kovu]

Konst_One
Так и знал, что спросят
Удалить собственно перед завершением программы временные файлы, которые были ей созданы при запуске (а так как их много и в поддиректориях, то SHFileOperation как раз подходит для этих целей). Прогрессбар нужен собственно чтоб пользователь видел что программа завершается, но при этом не мог отменить операцию.
Andrey Fedorov
Спасибо

[Kovu]

Konst_One
Путь полученный с помощью такого кода как раз не является полным

[Konst_One]

у меня полный. может у вас XP и темповая директория лежит в юзеровском профайле?

вообще-то для обычной команды KILL все равно

[Kovu]

Konst_One
Если б вы внимательно прочитали мой пост, то там написано что файлы создаются в папке с поддиректориями, так что Kill'y всю папку полную файлов и поддиректорий не под силу удалить
P.S.
У меня действительно ХР

[Konst_One]

с помощью FSO легко можно удалить все ваши папки с файлами одной командой

Код: Выделить всё

' NOTE: this code requires that you add a reference to the
'       Microsoft Scripting Runtime type library

' delete the C:\TEMP directory and all its sub-directories
Dim fso As New Scripting.FileSystemObject
fso.DeleteFolder "c:\temp"

You can also pass a second argument and set it to True if you want to force the deletion of read-only files:

Код: Выделить всё

fso.DeleteFolder "c:\temp", True

[Kovu]

Konst_One
Ну вот скажите, зачем мне ФСО, если SHFileOperation+RemoveDirectory делают то же самое и не надо ничего подключать =)
+ФСО прогрессбар не поддерживает , если так можно выразиться

[Konst_One]

можешь и не подключать :

Код: Выделить всё

Dim fso as Object
Set fso=CreateObject("Scripting.FileSystemObject")

[GSerg]

Konst_One
Так ты получишь два следствия: отсутствие подсказок по методам и медленное позднее связывание. Никакой отвязки от библиотеки не будет. В чём, таким образом, смысл?

[Konst_One]

Ну вот скажите, зачем мне ФСО, если SHFileOperation+RemoveDirectory делают то же самое и не надо ничего подключать =)

там просто кто-то не хотел ничего подключать

[Kovu]

Konst_One
А что вы так яро поддерживаете ФСО?
Чем вам АПИ не нравяться то?