Два вопроса у матроса :)

[PUNK-GRUNGER]

Два вопроса - у матроса:

Вопрос номер раз: Есть Windows XP, я и VB6.0. Задача тривиальна, но я уже не могу с ней бороться: как переименовывать файлы? В Me, 9x конструкция Name File1 As File2 работала просто замечательно... теперь, когда у меня XP - пишет о ошибке (permission denied). Самое интересное, что папки переименовывает, а вот файлы - нет.

Я подумал про привелигеи...

Гружусь под root'ом и таже фигня... Папки переименовывает, файлы нет. Пробовал FSO подключать (типа MoveFile), просто API MoveFile - ошибка и все...

Понимаю, что вина не в VB. В XP что-то? Кто-то может помочь?

Вопрос номер два: Написал алгоритм получения списка файлов и папок определенной директории. Типа обращаешься к функции с переменной "C:\Windows\" и она возвращает в ListBox'е все папки и все файлы (включая вложенные). Писал долго - надоело изрядно Самое интересное - написал... но... использовал DIR1 (погнался за легкостью...), а он, сволочь такая, не показывает скрытые папки (в отличии от File1.Hidden = True).

У кого-то есть готовый алгоритм показывания всех файлов\папок включая скрытые, системные и т.д. Желательно при использовании операнда DIR или на крайняк FSO

... какой я наглый...
P.S. Насчет матроса - это шутка такая

[tyomitch]

Dir-у надо указать атрибут Hidden как параметр, и он всё покажет
И не операнд это, а функция.

[PUNK-GRUNGER]

Я ж говорю... функция DIR скрытые папки покажет, а вот компонент DIR - фигушки

[Юстас]

Ну если ты такой наглый, то используй FindFirstFile, FindNextFile, FindClose, GetFileAttributes и будет у тебя красивая рекурсия.
И быстрее, чем с этим диром.

[GSerg]

Про первый вопрос как-то забыли

Как человек, читавший Книжку (:P), ответственно заявляю...
Во-первых, у тебя NTFS.
Во-вторых, у переименовываемых файлов в ACL ты не указан

Ты должен при создании файла присобачить к нему такой ACL, в котором ты был бы с соотв. правами. Ты наверняка указываешь NULL, получаешь дефолтовый SECURITY_DESCRIPTOR, он же потом тебя и посылает.
Проблема создания хороших ACL велика и ужасна, потому кроме как в MSDN я тебя никуда не отправлю

[PUNK-GRUNGER]

Начинаю искренне ненавидеть НТФС и вин икс пи

[Approximator]

Начинаю искренне ненавидеть НТФС...

Понимаю.

и вин икс пи

Не понимаю
Если уж стоит NTFS, то может стоит копировать а не переименовывать? Или это критично?

[CodeName33]

Про список файлов:

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

Public Function DirFilterIN(DirName As String) As String
On Error Resume Next
If Mid$(DirName, Len(DirName), 1) = "\" Then
  DirFilterIN = Mid$(DirName, 1, Len(DirName) - 1)
Else
  DirFilterIN = DirName
End If
End Function

Public Function GetSubFolderFiles(ByVal folder As String, FilesArray() As String) As Long
Dim I As Long, ArrayF() As String, ArrayC As Long, S2 As String, cDir As Long, cSize As Long, S As String
ReDim ArrayF(1 To 1) As String
ArrayC = 1: cDir = 1
ArrayF(ArrayC) = DirFilterIN(folder) + "\"

GETFOLDERS:
folder = DirFilterIN(folder) + "\"
S = Dir(folder, vbDirectory Or vbArchive Or vbHidden Or vbNormal Or vbReadOnly Or vbSystem)
Do Until S = ""
  If Not StrComp(S, ".") = 0 And Not StrComp(S, "..") = 0 Then
    S2 = folder + S
    If (GetAttr(S2) And vbDirectory) = vbDirectory Then
      ArrayC = ArrayC + 1
      ReDim Preserve ArrayF(1 To ArrayC) As String
      ArrayF(ArrayC) = S2
    Else
      GetSubFolderFiles = GetSubFolderFiles + 1
      ReDim Preserve FilesArray(1 To GetSubFolderFiles) As String
      FilesArray(GetSubFolderFiles) = S2
    End If
  End If
  S = Dir
Loop

If cDir < ArrayC Then
  cDir = cDir + 1
  folder = ArrayF(cDir)
  GoTo GETFOLDERS
End If
End Function


[CodeName33]

Про NTFS и WinXP.
Странная проблема, я только что в WinXP на NTFS переименовал файл Name ... as ... и никаких проблем не было.

[PUNK-GRUNGER]

COdeName - пасиба балшое за код. Умнее и быстрее, чем у меня воркает

[alibek]

При копировании на файл назначаются права из родительского каталога (каталога, в который копируется файл).
При перемещении файла в пределах диска права вообще не изменяются.
Перемещение файла на другой диск эквивалентно копированию с последующим удалением.

Так что по первому вопросу советую посмотреть права на папку, внутри которой ты переименовываешь файлы. Возможно там имеется какое-нибудь жуткое наследование, которое закрывает доступ владельцу.