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:12 CEST
This archive was generated by hypermail 2.2.0 : 03. 09. 2007, 20:12 CEST