Переименование

[Unstat]

Здорова всем...
У меня возник вопрос как переименовать файл (но не через FSO). Зарание пасибо.

[GSerg]

name file1 as file2

[Unstat]

Спасибо огромное.

[SHURUP]

Работает! И переименовует и перемещает и ошибки отловить можно.
А я все через АПИ...
----
Блин, опять я не знаю то, чего нету в Object-Browsere(F2) И много еще таких недокоментированных фишек?...

[tyomitch]

Блин, опять я не знаю то, чего нету в Object-Browsere(F2) И много еще таких недокоментированных фишек?...

Достаточно.
Самое главное, что все они описаны в мануале от QB, т.к. в большинстве своём введены для совместимости с ним.

[Ennor]

ЕМНИП, это все есть в Object Browser, другой вопрос, что раскопать там все это старье довольно сложно, если к задаче с наскока подходить. Так что иногда полного перебора бывает не избежать.

[ANDLL]

2Ennor: Ничего там нету... Ни Erease, не Like, не Name...as. В Object browser'e вообще нет большингства оперторов VB.

[SHURUP]

ЕМНИП, то там в (ObjectBrowser) нету ни одного из слов (и только их), которые редактор VB подсвечивает синим (ключевые, по-моему называются)

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


Option Explicit
Private Sub Form_Load()
Dim s() As String
Dim i As Integer
ReDim s(5)

On Error Resume Next
If Not (s(1) Like s(2)) Then
    Exit Sub
Else
    Name s(1) As s(2)
End If

For i = 0 To UBound(s) - 1 Step 2
    Print s(i)
Next

Debug.Print s(2)

Open s(1) For Input As #1
Close 1

Stop
End
Erase s
End Sub


А вот почему Тег [syntаx="vb"][/syntаx] не красит Stop, Step , Like и Debug.Print

[ANDLL]

Не красит потому, что те, кто писал эту шнягу об этом не подумали.
В ObjectBrowsere есть оператор PSet. Хотя вообще он не предназначен для этого: он отображает возможность той или иной библиотеки, а не операторы языка.

[tyomitch]

В ObjectBrowsere есть оператор PSet.

А ещё Print, Line и Circle. Т.е. половина операторов есть, половины нет.

[ANDLL]

Что-то я там print'а не увидел.

[tyomitch]

Точно, и Print нет

[SHURUP]

Line и Circle есть, но формат там не тот.

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

Private Sub Form_Load()
AutoRedraw = True
pi = 3.14159265
Picture1.Line (1000, 1000)-(200, 200), vbRed
Picture1.Circle (200, 200), 200, vbGreen
Picture1.Print "F"

'И еще: в QB была авто-замена "?" на Print. Попробуем проверить
'Picture1.? "F" 'снимете коментарий - заменит на Picture1.Print "F"

'ВЫВОД: все работает
'но если попробовать через WITH - получаются глюки

With Picture1
    '.Line (1000, 1000)-(200, 200), vbRed   '-ругается
    '.Circle (200, 200), 200, vbGreen       '-ругается
    '.print "F"                             '-ругается
   
    ' пробуем по тому формату, что в objBr-re
    .Line 0, 0, 0, 1000, 1000, vbRed 'рисует, но почемуто не красным
    .Circle 0, 0, 0, 1000, 0, 2 * pi, vbGreen, 1
   
    '.? "раскоментируйте эту строчку и удивитесь!!!"
End With
End Sub

[ANDLL]

Object.Line - оператор
With.... .Line(...) - функция. Понятно? Если объявиш object-переменную, то тоже придется писать Line в том формате, какой написан в object viewer'е.
А вот функции PSet и Print нету - есть только одноименные операторы.
В связи с этим, ксати, можно объявить переменную с именем Line, но нельзя с именем Print.