Синтаксис функции

@prog13 · Регистрация: 20.07.2009

Author24 — интернет-сервис помощи студентам

Есть функция

PureBasic

Function Move_File(source, Destination) 
Set fso = CreateObject("Scripting.FileSystemObject")
StrName = Dir(source, vbNormal)
Do While StrName <> ""
    fso.MoveFile "c:\send\out\" & StrName, Destination
    StrName = Dir
Loop
End Function

использую я её по выходу из формы. В таком виде:

PureBasic

1	Move_File("c:\send\out\*.1ls", "c:\send\out\" & MakeDirectory & "\")

но выдает ошибку: Extended:=
я так поминмаю, что нужно оперелить тип даных функции. Но какой тип, если она только переносит файлы.

@БурундукЪ · 04.11.2009, 14:52

тип String, т.к. это строки

@prog13 · 04.11.2009, 16:13 **[ТС]**

Выяснил. Синтаксис функции приведённый выше - правильный.
Вызов функции неправильный.
Правильный:

PureBasic

1	Call Move_File("c:\send\out\*.1ls", "c:\send\out\" & MakeDirectory & "\")

или

PureBasic

1	Move_File "c:\send\out\*.1ls", "c:\send\out\" & MakeDirectory & "\"

@БурундукЪ 10065 / 2622 / 84 Регистрация: 17.02.2009 Сообщений: 10,364
	04.11.2009, 14:52	2
	тип String, т.к. это строки 0

	04.11.2009, 16:13

Опции темы