Имя пользователя:
Пароль:  
Помощь | Регистрация | Забыли пароль?  

Показать сообщение отдельно

Пользователь


Сообщения: 135
Благодарности: 32

Профиль | Отправить PM | Цитировать


Три способа определить - является ли файл папкой:
P.S.
Возможно, для многих это не новость, и всё-таки...
Код: Выделить весь код
;~ Путём получения атрибутов
;~ Возвращает положительное число если папка существует, иначе 0
Func FolderExist($name)
$Folder=StringInStr(FileGetAttrib($name),"D")
Return $Folder
EndFunc

;~ С помощью файла "nul" присутствующего в каждой папке
;~ Возвращает 1 если папка существует, иначе 0
Func _FolderExist($name)
$Folder=FileExists($name & "\nul")
Return $Folder
EndFunc

;~ С помощью функции VBScript
;~ Возвращает 1 если папка существует, иначе 0
Func VbFolderExist($name)
$fso=ObjCreate("scripting.filesystemobject")
$Folder=Abs($fso.FolderExists($name))
Return $Folder
EndFunc
Creat0R
Цитата:
без всякой связи с кириллицей, это был не касающийся этого вопрос
В любом случае, исправленный код может оказаться полезным и для других участников форума.
А всё-таки кракозябры были не связаны с буфером обмена или AutoIt. А то, я уж чуть было не усомнился в эфективности способа который я предложил i_mihal
Это сообщение посчитали полезным следующие участники:

Отправлено: 01:14, 18-01-2007 | #140