Подкиньте примерчик по MoveFileW пожалуйста.

[Pantalone]

У меня MoveFile отказалась работать с парой файлов у которых витиеватые имена с крякозябрами. Попробовал сабж, так она вообще не один файл не переименовала, выдает 0.
Поделитесь работающим примерчиком с сабжем.
Заранее спасибо.

[Viper]

Лучше подскажи, как ты пробовал.
З.Ы. Правильные способы пробанья:
1. Через TLB
2. Через передачу указателей на массивы байтов вместо строк.
3. Через передачу указателей на строки.

ADD: Поправлен пункт 2 во избежание введения в заблуждение.

[Pantalone]

Это к чему из перечисленного относится?

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

Public Declare Function MoveFile Lib "kernel32" Alias "MoveFileW" (ByVal lpExistingFileName As String, ByVal lpNewFileName As String) As Long

MoveFile OldFile, NewFile

[Viper]

Это относится к неправильному пониманию смысла быуквы W в названии API-функции. Стоит почитать например Эппельмана для того чтобы это прочувствовать. Да и здесь, на форуме, сия тема поднимлась неоднократно.

З.Ы. Подсказка: VB фиолетово, какая буква в алиасе, он все равно строку преобразует в ANSI-строку и ее то и передаст в вызываемую функцию. Это верно для твоего выарианта объявления функции.

[jangle]

У меня MoveFile отказалась работать с парой файлов у которых витиеватые имена с крякозябрами.

Может стоит привести имена этих витиеватых файлов?

[Pantalone]

Имена такие:

▼▲Θ٤۝₪_UNICODEs
Apostate Café » VB format() function.htm

[Хакер]

Viper

Пункт 2 не совсем ясен.

[alibek]

В декларации указать Long, а при вызове arrText(0).

[Хакер]

Что за глупость?

[Viper]

Собственно пункт 2 аналогичен пункту 3, но вместо строки используем массив байт и передаем указатель на первый элемент массива. Иногда бывает удобнее третьего варианта.
В обоих случаях объявление будет такое:

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

Public Declare Function MoveFile Lib "kernel32" Alias "MoveFileW" (ByVal lpExistingFileName As Long, ByVal lpNewFileName As Long) As Long

а юзанье со строками:

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

MoveFile StrPtr(sOld), StrPtr(sNew)

с массивами байт:

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

MoveFile VarPtr(arsOld(0)), VarrPtr(arsNew(0))

[Pantalone]

Что-то намудрили вы тут. MoveFileA например преспокойно работает с обычными строками. MoveFileW тоже кстати, не работает только с теми что я привел.

[Хакер]

Viper
Ну только тогда не "Через передачу массивов байтов вместо строк.", а "Через передачу указателя на массиввы байтов вместо указателей на строки". А по сути, пункты 2 и 3 - одинаковы.

[Pantalone]

Кстати, fso прекрасно справилось с задачей. Подскажите тогда, fso будет работать на каждом компе с системой выше 2000 винды или же есть какие-то грабли? Вопрос такой возник поскольку софтина будет работать на нескольких компах. И непонятно будет ли FSO работать на всех компах или же есть какие-то грабли, типа возможность FSO отключена политиками или еще как-то. Сорри если вопрос глупый, но видел часто рекомендации что лучне не использовать FSO, потому как не везде может прокатить.

[Хакер]

Pantalone
MoveFileW тоже справляется с задачей отлично. Надо просто уметь его готовить.

[Pantalone]

Хакер
У меня не работает. Да и советы не особенно помогли, так что остается FSO. Если заработает на других компах, или я с WMI путаю?

[Хакер]

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

[Pantalone]

Когда помощи ждать не от кого, приходится искать новые способы.

[Хакер]

помощи ждать не от кого

Это не соответствует действительности.

[jangle]

Кстати, fso прекрасно справилось с задачей. Подскажите тогда, fso будет работать на каждом компе с системой выше 2000 винды или же есть какие-то грабли?

Да будет, FSO это часть Windows Script Host, а он, есть во всех ОС старше Win2000.

[Pantalone]

jangle
FSO, кстати, справилось не через переименование как таковое:

Это не прокатило:

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

fso.MoveFile OldFile, NewFile

И это не прокатило

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

Dim fso As FileSystemObject
Dim fil As Scripting.File

Set fso = New FileSystemObject
Set fil = fso.GetFile(OldFile) 'тут происходит затык

fil.Move(NewFile)

Прокатило другое, а именно fil.Name, но способ получения fil просто кашмарный - перебором всех файлов через FSO, напрямую никак.

Хакер

Это не соответствует действительности.

Я просил помощи, а не нравоучений и пустой демагогии.

[Viper]

Pantalone, как это не помогли? И способы общения с MoveFileW привели, и даже объявление с примером использования. Это не помогли? Нды...

[alibek]

Я просил помощи, а не нравоучений и пустой демагогии.

Ты просил не помощи, ты просил, чтобы за тебя все сделали.
Viper дал исчерпывающий ответ, надо лишь немного подумать, чтобы применить его в своей ситуации.

[Pantalone]

Ты просил не помощи, ты просил, чтобы за тебя все сделали.

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

[alibek]

Знаешь пословицу про рыбу и сеть? Помощь -- это как раз алгоритм.

[Viper]

Pantalone, ты пришел с вопросом о переименовании файлов через MoveFileW. Стало быть, ты знаешь, что есть такая функция. Дальше ты пишешь, что она нефига не переименовывает, выдает 0. Отсюда получаем предположение, что ты не знаешь нюанса с преобразованием Unicode-строки в ANSI-строку, которое далает VB при вызове API-функций. Однако просишь пример юзанья функции. Тебя спрашивают, как же ты ее объявил то (ибо какой тут пример, все элементарно до невозмжности)? А также намекают как же ее (эту функцию) надо правильно использовать. Предположение о неправильном объявлении оказывается верным, на что тебе и указывают. Эффекту однако все равно нет. Наконец тебе таки дается полный пример объявления и использования. А ты всяко пишешь, что тебе не помогли. И что это за подход такой?

[Pantalone]

Viper
Закрутился просто, работы вагон, не всегда удается упомнить на чем собственно остановился