sa to asi zle zalomilo toto daj na jeden riadok: Dim hndFile As Long, createTime As FILETIME, accessTime As FILETIME, writeTime As FILETIME, bRet As Long On 9/3/07, AleX <faklabrejle (zavinac) gmail.com> wrote: > > bunka d1 bez uvodzoviek a cela cesta napr: c:\windows\system32\notepad.exe > > On 9/3/07, Simona Trneckova <strnecka (zavinac) gmail.com > wrote: > > > > Bohuzel se mi to zastavilo pri "retrieve" na lince > > > > Private Sub GetIt(myFil As String) > > Dim hndFile As Long, createTime As FILETIME, accessTime As FILETIME, > > writeTime As FILETIME, bRet As Long > > hndFile = CreateFile(myFil, GENERIC_READ Or GENERIC_WRITE, > > FILE_SHARE_READ _ > > Or FILE_SHARE_DELETE, 0&, OPEN_EXISTING, FILE_FLAG_BACKUP_SEMANTICS, > > 0&) > > If hndFile = 0 Then Exit Sub > > bRet = GetFileTime(hndFile, createTime, accessTime, writeTime) > > Range("A1").Select ActiveCell = createTime.dwLowDateTime > > ActiveCell.Offset(0, 1) = createTime.dwHighDateTime > > ActiveCell.Offset(1, 0) = writeTime.dwLowDateTime > > ActiveCell.Offset(1, 1) = writeTime.dwHighDateTime > > CloseHandle hndFile > > End Sub > > > > jako Compile Error - Wrong number of arguments or invalid property > > assignment (Error 450) . > > > > Pricemz zluta sipka je na Private Sub GetIt(myFil As String), ale > > oznacene > > je .Select v casti > > > > > > Range("A1").Select ActiveCell = createTime.dwLowDateTime > > > > > > > > On 9/3/07, AleX <faklabrejle (zavinac) gmail.com> wrote: > > > > > > Takze najprv pokec, > > > do excelu do bunky d1 das nazov suboru > > > do bunky d2 das datum a cas last accessed > > > potom spustis makro retrieve > > > (do buniek a1 az b2 sa ti nastavia hodnoty datumov cerated writed) > > > s kludom anglicana otvoris pozadovany subor .... skoncis so svojou > > > nelegitimnou pracou (naco inak by si musela menit datum last accesed > > ?? > > > ;-) ) > > > a spustis makro setDate .... > > > eto vsjo > > > '------- start cut ---------------- > > > Option Explicit > > > > > > Private Type FILETIME > > > dwLowDateTime As Long > > > dwHighDateTime As Long > > > End Type > > > > > > Private Declare Function SetFileTime Lib "kernel32" (ByVal hFile _ > > > As Long, lpCreationTime As FILETIME, lpLastAccessTime As _ > > > FILETIME, lpLastWriteTime As FILETIME) As Long > > > > > > Private Declare Function GetFileTime Lib "kernel32" _ > > > (ByVal hFile As Long, lpCreationTime As FILETIME, lpLastAccessTime As > > _ > > > FILETIME, lpLastWriteTime As FILETIME) As Long > > > Private Type SYSTEMTIME > > > wYear As Integer > > > wMonth As Integer > > > wDayOfWeek As Integer > > > wDay As Integer > > > wHour As Integer > > > wMinute As Integer > > > wSecond As Integer > > > wMilliseconds As Integer > > > End Type > > > > > > Private Declare Function SystemTimeToFileTime Lib "kernel32" _ > > > (lpSystemTime As SYSTEMTIME, lpFileTime As FILETIME) As Long > > > > > > Private Declare Function FileTimeToSystemTime Lib "kernel32" _ > > > (lpFileTime As FILETIME, lpSystemTime As SYSTEMTIME) As Long > > > > > > Private Declare Function LocalFileTimeToFileTime Lib "kernel32" _ > > > (lpLocalFileTime As FILETIME, lpFileTime As FILETIME) As Long > > > > > > Private Declare Function FileTimeToLocalFileTime Lib "kernel32" _ > > > (lpFileTime As FILETIME, _ > > > lpLocalFileTime As FILETIME) As Long > > > > > > Private Declare Function CreateFile Lib "kernel32" _ > > > Alias "CreateFileA" _ > > > (ByVal lpFileName As String, _ > > > ByVal dwDesiredAccess As Long, _ > > > ByVal dwShareMode As Long, _ > > > ByVal lpSecurityAttributes As Long, _ > > > ByVal dwCreationDisposition As Long, _ > > > ByVal dwFlagsAndAttributes As Long, _ > > > ByVal hTemplateFile As Long) As Long > > > > > > > > > Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As > > _ > > > Long) As Long > > > > > > Private Const OPEN_EXISTING = 3 > > > Private Const FILE_ATTRIBUTE_NORMAL = &H80 > > > Private Const GENERIC_READ = &H80000000 > > > Private Const GENERIC_WRITE = &H40000000 > > > Private Const FILE_SHARE_READ = &H1 > > > Private Const FILE_SHARE_WRITE = &H2 > > > Private Const FILE_FLAG_BACKUP_SEMANTICS = &H2000000 > > > Private Const FILE_SHARE_DELETE As Long = &H4 > > > > > > Private Sub GetIt(myFil As String) > > > Dim hndFile As Long, createTime As FILETIME, accessTime As FILETIME, > > > writeTime As FILETIME, bRet As Long > > > hndFile = CreateFile(myFil, GENERIC_READ Or GENERIC_WRITE, > > FILE_SHARE_READ > > > _ > > > Or FILE_SHARE_DELETE, 0&, OPEN_EXISTING, > > FILE_FLAG_BACKUP_SEMANTICS, > > > 0&) > > > If hndFile = 0 Then Exit Sub > > > bRet = GetFileTime(hndFile, createTime, accessTime, writeTime) > > > Range("A1").Select > > > ActiveCell = createTime.dwLowDateTime > > > ActiveCell.Offset(0, 1) = createTime.dwHighDateTime > > > ActiveCell.Offset(1, 0) = writeTime.dwLowDateTime > > > ActiveCell.Offset (1, 1) = writeTime.dwHighDateTime > > > CloseHandle hndFile > > > End Sub > > > Private Sub SetIt(myFil As String) > > > Dim hndFile As Long, createTime As FILETIME, accessTime As FILETIME, > > > writeTime As FILETIME, st As SYSTEMTIME, ft As FILETIME > > > hndFile = CreateFile(myFil, GENERIC_READ Or GENERIC_WRITE, > > FILE_SHARE_READ > > > _ > > > Or FILE_SHARE_DELETE, 0&, OPEN_EXISTING, > > FILE_FLAG_BACKUP_SEMANTICS, > > > 0&) > > > If hndFile = 0 Then Exit Sub > > > Range("A1").Select > > > createTime.dwLowDateTime = ActiveCell.Value > > > createTime.dwHighDateTime = ActiveCell.Offset(0, 1).Value > > > writeTime.dwLowDateTime = ActiveCell.Offset(1, 0).Value > > > writeTime.dwHighDateTime = ActiveCell.Offset(1, 1).Value > > > st.wYear = Format(Range("d2"), "YYYY") 'Year > > > st.wDay = Format(Range("d2"), "dd") 'Day > > > st.wMonth = Format(Range("d2"), "mm") 'Month > > > st.wHour = Format(Range("d2"), "hh") 'Hour > > > st.wMinute = Format(Range("d2"), "nn") 'Minute > > > st.wSecond = Format(Range("d2"), "ss") 'Second > > > SystemTimeToFileTime st, ft > > > LocalFileTimeToFileTime ft, accessTime > > > > > > SetFileTime hndFile, createTime, accessTime, writeTime > > > CloseHandle hndFile > > > End Sub > > > > > > Sub Retrieve() > > > GetIt (Range("d1").Text) > > > End Sub > > > Sub setdate() > > > SetIt (Range("D1").Text) > > > End Sub > > > '-------end cut ------------------ > > > > > > > > > On 9/3/07, AleX <faklabrejle (zavinac) gmail.com> wrote: > > > > > > > > nie je to makro do excelu > > > > vo worde makra moc nemusim.... > > > > pripravim a poslem sem ochvilku > > > > > > > > On 9/3/07, Simona Trneckova < strnecka (zavinac) gmail.com> wrote: > > > > > > > > > > Jako ze se pak projede ten soubor nejakym word makrem a nastavit > > tam > > > > > last > > > > > accessed na to, co tam bylo? Pokud je to tak, pak mam zajem :-) S > > word > > > > > makry > > > > > jsem jeste nepracovala, ale snad bych to zvladla - pokud jde jen o > > to > > > to > > > > > pustit.... > > > > > > > > > > > > > > > > > > > > On 9/2/07, AleX < faklabrejle (zavinac) gmail.com> wrote: > > > > > > > > > > > > da sa to na programatorskej urovni napriklad aj cez vba, > > > > > > len ono si staci pozriet properties od suboru a last accessed sa > > > zmeni > > > > > > ak je o este aktualne poslem torzo kodu kt. som nasiel > > > > > > > > > > > > On 8/31/07, petr_xs <petr.xs (zavinac) volny.cz> wrote: > > > > > > > > > > > > > > Zmenit datum a cas v PC ? > > > > > > > > > > > > > > > To take zmeni properties - last accessed - toho dotycneho > > > souboru. > > > > > > > > > > > > > > > > > > > > > Asi to fakt nejde. Skoda. > > > > > > > > > > > > > > > > S > > > > > > > > > > > > > > > > > > > > > > > > > > > > > -- > > > > > > > -----------------------------------------------------( reklama > > > > > > > )----- > > > > > > > KURZ POUZITELNOSTI WEBU (Cena 2.950 Kc bez DPH, Praha, 6. 9., > > > 10:00) > > > > > > > Spousta navstevniku jeste nic neznamena, je potreba ziskat > > > > > zakazniky. > > > > > > > Naucte se zlepsit konverzni pomer webu diky lepsi > > pouzitelnosti. > > > > > > > http://www.dobryweb.cz/skoleni-pouzitelnost/?s-ser > > > > > > > > > > > > > > --------------------------------------------------------------------- > > > > > > > -- > > > > > > > -- Konference: SERVIS ------ Pravidla: http://pravidla.kab.cz/-- > > > > > > > -- Archiv, instrukce pro odhlaseni: http://internet.nawebu.cz/-- > > > > > > > -- Konference Internet Info, s.r.o. ----- http://www.iinfo.cz/-- > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > >Received on 03. 09. 2007, 20:15 CEST
This archive was generated by hypermail 2.2.0 : 03. 09. 2007, 20:15 CEST