OLE32: implement StgSetTimes

[Mike McCormack]

ChangeLog:
* implement StgSetTimes
-------------- next part --------------
Index: dlls/ole32/storage32.c
===================================================================
RCS file: /home/wine/wine/dlls/ole32/storage32.c,v
retrieving revision 1.70
diff -u -p -r1.70 storage32.c
--- dlls/ole32/storage32.c	25 Feb 2005 13:58:37 -0000	1.70
+++ dlls/ole32/storage32.c	4 Mar 2005 08:19:41 -0000
@@ -5862,11 +5862,23 @@ HRESULT WINAPI StgOpenStorageOnILockByte
  *
  *
  */
-HRESULT WINAPI StgSetTimes(OLECHAR const *str, FILETIME const *a,
-                           FILETIME const *b, FILETIME const *c )
+HRESULT WINAPI StgSetTimes(OLECHAR const *str, FILETIME const *pctime,
+                           FILETIME const *patime, FILETIME const *pmtime)
 {
-  FIXME("(%s, %p, %p, %p),stub!\n", debugstr_w(str), a, b, c);
-  return S_OK;
+  IStorage *stg = NULL;
+  HRESULT r;
+ 
+  TRACE("%s %p %p %p\n", debugstr_w(str), pctime, patime, pmtime);
+
+  r = StgOpenStorage(str, NULL, STGM_READWRITE | STGM_SHARE_DENY_WRITE,
+                     0, 0, &stg);
+  if( SUCCEEDED(r) )
+  {
+    r = IStorage_SetElementTimes(stg, NULL, pctime, patime, pmtime);
+    IStorage_Release(stg);
+  }
+
+  return r;
 }
 
 /******************************************************************************