[Nik_rus]

ctrl+с могут не работать, если основная раскладка не русская.
Насчет типа файла: это расширение ? Если да то можно-

Код:

$file = "Blah.bmp"
$str = StringTrimLeft($file,StringInStr($file, "."))
If Not @error Then
	MsgBox(0,"Done","Расширение файла " & $file & " = " & $str)
Else
	MsgBox(0,"Чета не рабит","Ты какой-то хреновый кодер или у файла нет расширения")
EndIf

Дата создания и проч я не знаю, думаю это есть в разных UDF.

[FlatX007]

• тип файла, »

Код:

#include <file.au3>
#include <array.au3>
Dim $szDrive, $szDir, $szFName, $szExt
$TestPath = _PathSplit(@ScriptFullPath, $szDrive, $szDir, $szFName, $szExt)
_ArrayDisplay($TestPath,"Demo _PathSplit()")

[SyDr]

FileGetAttrib - атрибуты файла
FileGetTime - время создания или модифицирования. Смотрите последнюю версию справки. Русская версия устарела в данном вопросе.

[Creat0R]

тип файла »

Код:

$sFileType = _FileGetType("C:\boot.ini")

MsgBox(64, 'Title', $sFileType)

Func _FileGetType($sFile)
    Local $iOld_Opt_EES = Opt("ExpandEnvStrings", 1)
    Local $sRegDefault, $sRegType = "", $sExt

    If _FileIsFolder($sFile) Then
        $sRegDefault = RegRead("HKCR\Folder", "")
        If $sRegDefault <> "" Then $sRegType = $sRegDefault
    Else
        $sExt = StringRegExpReplace($sFile, '^.*\.(.{0,5})$', '.\1')

        If @extended = 0 Or $sExt = $sFile Then
            $sExtSaerch = FileFindFirstFile($sFile & ".*")
            $sExt = StringRegExpReplace(FileFindNextFile($sExtSaerch), '^.*\.', '.')
            $sFile &= $sExt
        EndIf

        $sRegDefault = RegRead("HKCR\" & $sExt, "")

        If $sRegDefault <> "" Then $sRegType = RegRead("HKCR\" & $sRegDefault, "")
        If $sRegType = "" Then $sRegType = $sExt & "-File"
    EndIf

    Opt("ExpandEnvStrings", $iOld_Opt_EES)

    Return $sRegType
EndFunc

Func _FileIsFolder($sPath)
    Return StringInStr(FileGetAttrib($sPath & "\"), "D")
EndFunc

Shift, alt, ctrl могут не работать, если основная раскладка не русская. »

Первый раз слышу. Из за раскладки может неправильно определяться буква c, поэтому лучше делать так:

Код:

_SendEx("^c")

Func _SendEx($sKeys, $iFlag=0)
    If @KBLayout = 0419 Then
        Local $aANSI_Chars = StringSplit("ёйцукенгшщзхъфывапролджэячсмитьбю.?", "")
        Local $aASCII_Chars = StringSplit("`qwertyuiop[]asdfghjkl;'zxcvbnm,./&", "")

        For $i = 1 To $aANSI_Chars[0]
            $sKeys = StringReplace($sKeys, $aASCII_Chars[$i], $aANSI_Chars[$i])
        Next
    EndIf

    Return Send($sKeys, $iFlag)
EndFunc

А конкретно для копирования, лучше вовсе так: Send("^{INS}")

[leonaft]

А конкретно для копирования, лучше вовсе так: Send("^{INS}")

[b] Да, точно, надо проверить.

[amel27]

владелец файла »

Код:

ConsoleWrite(_FileGetOwner(@HomePath) &@CRLF)

Func _FileGetOwner($sFile, $sComputer = ".")
    Local $objWMI, $colItems, $objItem, $strOwner = ""

    $objWMI = ObjGet("winmgmts:\\" & $sComputer & "\root\cimv2")
    If Not(IsObj($objWMI)) Then Return SetError(1, 0, "")
    $colItems = $objWMI.ExecQuery("ASSOCIATORS OF {Win32_LogicalFileSecuritySetting='" & $sFile & "'}" _
         & " WHERE AssocClass=Win32_LogicalFileOwner ResultRole=Owner")
    If Not(IsObj($colItems)) Then Return SetError(2, 0, "")
    For $objItem In $colItems
        $strOwner = $objItem.ReferencedDomainName &"\"& $objItem.AccountName
        If $strOwner=="\" Then $strOwner = $objItem.SID
    Next

    Return $strOwner
EndFunc

[Creat0R]

Вот ещё функция для получения свойств файла:

Код:

#include <Array.au3>

$aProperties = _FileGetExtProperty(@AutoItExe, -1)

_ArrayDisplay($aProperties)

;===============================================================================
; Function Name:    _FileGetExtProperty($sPath, $iProp)
; Description:      Returns an extended property of a given file.
; Parameter(s):     $sPath - The path to the file you are attempting to retrieve an extended property from.
;                   $iProp - The numerical value for the property you want returned. If $iProp is is set
;                             to -1 then all properties will be returned in a 1 dimensional array in their corresponding order.
;                           The properties are as follows:
;                           #   Windows XP / Windows Server 2003    |    Windows 2000
;                           0               Name                            Name
;                           1               Size                            Size
;                           2               Type                            Type
;                           3               Date Modified                   Date Modified
;                           4               Date Created                    Attributes
;                           5               Date Accessed                   Comment
;                           6               Attributes                      Date Created
;                           7               Status                          Date Accessed
;                           8               Camera Model                    Owner
;                           9               Author                          ???
;                           10              Title                           Author
;                           11              Duration                        Title
;                           12              Category                        Subject
;                           13              Pages                           Category
;                           14              Owner                           Pages
;                           15              Copyright                       Copyright
;                           16              Artist                          Company Name
;                           17              Genre                           Module Desription
;                           18              Protected                       Module Version
;                           19              Comments                        Product Name
;                           20              Album Title                     Product Version
;                           21              Subject                         Sender Name
;                           22              Dimensions                      Recipient Name
;                           23              Year                            Recipient Number
;                           24              Track Number                    Csid
;                           25              Date Picture Taken              Tsid
;                           26              Bit Rate                        Transmission Time
;                           27              ???                             Caller Id
;                           28              ???                             Routing
;                           29              ???                             Audio Format
;                           30              Company                         Sample Rate
;                           31              Description                     Audio Sample Size
;                           32              File Version                    Channels
;                           33              Product Name                    Play Length
;                           34              Product Version                 Frame Count
;                           35              ???                             Frame Rate
;                           36              ???                             Video Sample Size
;                           37              ???                             Video Compression
; Requirement(s):   File specified in $spath must exist.
; Return Value(s):  On Success - The extended file property, or if $iProp = -1 then an array with all properties
;                   On Failure - 0, @Error - 1 (If file does not exist)
; Author(s):        Simucal (Simucal@gmail.com), Mod. by G.Sandler (a.k.a CreatoR)
; Note(s):
;
;===============================================================================
Func _FileGetExtProperty($sPath, $iProp)
    Local $sFile, $sDir, $oShellApp, $oDir, $oFile, $aProperty, $sProperty
    If Not FileExists($sPath) Then Return SetError(1, 0, 0)

    $sFile = StringTrimLeft($sPath, StringInStr($sPath, "\", 0, -1))
    $sDir = StringTrimRight($sPath, (StringLen($sPath) - StringInStr($sPath, "\", 0, -1)))

    $oShellApp = ObjCreate("shell.application")
    $oDir = $oShellApp.NameSpace($sDir)
    $oFile = $oDir.ParseName($sFile)

    If $iProp = -1 Then
        Local $aProperty[35]

        For $i = 0 To 34
            $aProperty[$i] = $oDir.GetDetailsOf($oFile, $i)
        Next

        Return $aProperty
    EndIf

    $sProperty = $oDir.GetDetailsOf($oFile, $iProp)

    If $sProperty = "" Then Return 0
    Return $sProperty
EndFunc   ;==>_FileGetExtProperty

Func _FileGetOwner($sFile, $sComputer = ".") »

У меня она возвращает пустую строку

[timsky]

Creat0R, у меня нормально отрабатывает. ХР SP3 EN

[FlatX007]

У меня она возвращает пустую строку »

На Вин7 всё нормально ...

Код:

MsgBox(0,"", _FileGetOwner(@ScriptFullPath) )

Так возвращает владельца администратора.