Visual Basic

x:\Documents and Settings\Username\Local Settings\

x

Username

<br />
Imports System.IO <br />
<br />
Public Class Form1 <br />
    Inherits System.Windows.Forms.Form <br />
<br />
Dim files() as String = Directory.GetFiles("Your Path\") <br />
<br />
Dim fl as String <br />
<br />
For each fl in Files <br />
    File.Delete(fl) <br />
Next<br />

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    Dim urlHistory As New UrlHistoryClass
    Dim obj As IUrlHistoryStg2 = CType(urlHistory, IUrlHistoryStg2)
    obj.ClearHistory()
    Marshal.ReleaseComObject(obj)
End Sub

using System;
using System.Runtime.InteropServices;
using System.Collections;
 
namespace Obsolete
{
	public enum STATURL_QUERYFLAGS : uint
	{
		STATURL_QUERYFLAG_ISCACHED = 0x00010000,
		STATURL_QUERYFLAG_NOURL    = 0x00020000,
		STATURL_QUERYFLAG_NOTITLE  = 0x00040000,
		STATURL_QUERYFLAG_TOPLEVEL = 0x00080000,
	}
	public enum STATURLFLAGS : uint
	{
		STATURLFLAG_ISCACHED   = 0x00000001,
		STATURLFLAG_ISTOPLEVEL = 0x00000002,
	}
 
	//Contains statistics about a URL
	[StructLayout(LayoutKind.Sequential)]
	public struct STATURL 
	{
		public int cbSize;
		[MarshalAs(UnmanagedType.LPWStr)] public string pwcsUrl;
		[MarshalAs(UnmanagedType.LPWStr)] public string pwcsTitle;
		public FILETIME ftLastVisited;
		public FILETIME ftLastUpdated;
		public FILETIME ftExpires;
		public STATURLFLAGS dwFlags;
	} 
 
	[StructLayout(LayoutKind.Sequential)]
	public struct UUID
	{
		public int Data1;
		public short Data2;
		public short Data3;
		public byte[] Data4;
	}
 
	//Enumerates the cached URLs
	[ComImport]
	[InterfaceType(ComInterfaceType.InterfaceIsIUnknown)]
	[Guid("3C374A42-BAE4-11CF-BF7D-00AA006946EE")]
	public interface IEnumSTATURL 
	{
		void Next(int celt, ref STATURL rgelt, out int pceltFetched);
		void Skip(int celt);
		void Reset();
		void Clone(out IEnumSTATURL ppenum);
		void SetFilter([MarshalAs(UnmanagedType.LPWStr)] string  poszFilter, STATURLFLAGS dwFlags);
	}
 	
	[ComImport]
	[InterfaceType(ComInterfaceType.InterfaceIsIUnknown)]
	[Guid("3C374A41-BAE4-11CF-BF7D-00AA006946EE")]
	public interface IUrlHistoryStg
	{
		void AddUrl(string pocsUrl, string pocsTitle, STATURLFLAGS dwFlags);
		void DeleteUrl(string pocsUrl, int dwFlags);
		void QueryUrl ([MarshalAs(UnmanagedType.LPWStr)] string pocsUrl , int dwFlags , ref STATURL lpSTATURL );
		void BindToObject ([In] string pocsUrl, [In] UUID riid, IntPtr ppvOut);
		object EnumUrls{[return: MarshalAs(UnmanagedType.IUnknown)] get;}
	}
 
	[ComImport]
	[InterfaceType(ComInterfaceType.InterfaceIsIUnknown)]
	[Guid("AFA0DC11-C313-11D0-831A-00C04FD5AE38")]
	public interface IUrlHistoryStg2 : IUrlHistoryStg
	{
		new void AddUrl(string pocsUrl, string pocsTitle, STATURLFLAGS dwFlags);
		new void DeleteUrl(string pocsUrl, int dwFlags);
		new void QueryUrl ([MarshalAs(UnmanagedType.LPWStr)] string pocsUrl , int dwFlags , ref STATURL lpSTATURL );
		new void BindToObject ([In] string pocsUrl, [In] UUID riid, IntPtr ppvOut);
		new object EnumUrls{[return: MarshalAs(UnmanagedType.IUnknown)] get;}
		void AddUrlAndNotify(string pocsUrl, string pocsTitle, int dwFlags, int fWriteHistory, object poctNotify, object punkISFolder);
		void ClearHistory();
	}
 
	//UrlHistory class
	[ComImport]
	[Guid("3C374A40-BAE4-11CF-BF7D-00AA006946EE")]
	public class UrlHistoryClass
	{	
	}
}

Imports System<br />
Imports System.Runtime.InteropServices<br />
Imports System.Collections <br />
Namespace Obsolete<br />
         Public Enum STATURL_QUERYFLAGS As System.UInt32<br />
		STATURL_QUERYFLAG_ISCACHED = 0x00010000<br />
		STATURL_QUERYFLAG_NOURL    = 0x00020000<br />
		STATURL_QUERYFLAG_NOTITLE  = 0x00040000<br />
		STATURL_QUERYFLAG_TOPLEVEL = 0x00080000<br />
         End Enum<br />
         Public Enum STATURLFLAGS As System.UInt32<br />
                  STATURLFLAG_ISCACHED   = 0x00000001<br />
		STATURLFLAG_ISTOPLEVEL = 0x00000002<br />
         End Enum<br />
 <br />
          'Contains statistics about a URL<br />
	<StructLayout(LayoutKind.Sequential)> _ <br />
	Public Structure STATURL<br />
		Public cbSize As Integer<br />
		<MarshalAs(UnmanagedType.LPWStr)) Public String pwcsUrl<br />
		<MarshalAs(UnmanagedType.LPWStr)) Public String pwcsTitle<br />
		Public ftLastVisited As FILETIME<br />
		Public ftLastUpdated As FILETIME<br />
		Public ftExpires As FILETIME<br />
		Public dwFlags As STATURLFLAGS<br />
	End Structure<br />
 <br />
<StructLayout(LayoutKind.Sequential)> _ <br />
	Public Structure UUID<br />
		Public Data1 As Integer<br />
		Public Data2 As Short<br />
		Public Data3 As Short<br />
		Public Data4() As Byte<br />
	End Structure<br />
 <br />
        'Enumerates the cached URLs<br />
	<ComImport> _ <br />
	<InterfaceType(ComInterfaceType.InterfaceIsIUnknown)> _ <br />
	<Guid("3C374A42-BAE4-11CF-BF7D-00AA006946EE")> _ <br />
	Public Interface IEnumSTATURL<br />
		void Next(Integer celt,  STATURL rgelt,  Integer pceltFetched)<br />
		void Skip(Integer celt)<br />
		Dim Reset() As void<br />
		void Clone( IEnumSTATURL ppEnum) <br />
		void Clone( IEnumSTATURL ppenum)<br />
		End Enum<br />
		void SetFilter((MarshalAs(UnmanagedType.LPWStr)) String  poszFilter, STATURLFLAGS dwFlags)<br />
	End Interface<br />
 	<ComImport> _ <br />
	<InterfaceType(ComInterfaceType.InterfaceIsIUnknown)> _ <br />
	<Guid("3C374A41-BAE4-11CF-BF7D-00AA006946EE")> _ <br />
	Public Interface IUrlHistoryStg<br />
                  void AddUrl(String pocsUrl, String pocsTitle, STATURLFLAGS dwFlags)<br />
		void DeleteUrl(String pocsUrl, Integer dwFlags)<br />
		void QueryUrl ((MarshalAs(UnmanagedType.LPWStr)) String pocsUrl , Integer dwFlags ,  STATURL lpSTATURL)<br />
		void BindToObject ((In) String pocsUrl, (In) UUID riid, IntPtr ppvOut)<br />
		Object EnumUrls<br />
		{<br />
			<Return: MarshalAs(UnmanagedType.IUnknown)) get<br />
<br />
		}<br />
	End Interface<br />
 <br />
          <ComImport> _ <br />
	<InterfaceType(ComInterfaceType.InterfaceIsIUnknown)> _ <br />
	(Guid("AFA0DC11-C313-11D0-831A-00C04FD5AE38")> _ <br />
	Public Interface IUrlHistoryStg2<br />
	 Implements IUrlHistoryStg		<br />
                  New void AddUrl(String pocsUrl, String pocsTitle, STATURLFLAGS dwFlags)<br />
		New void DeleteUrl(String pocsUrl, Integer dwFlags)<br />
		New void QueryUrl ((MarshalAs(UnmanagedType.LPWStr)) String pocsUrl , Integer dwFlags ,  STATURL lpSTATURL)<br />
		New void BindToObject ((In) String pocsUrl, (In) UUID riid, IntPtr ppvOut)<br />
		Shadows Property EnumUrls() As Object<br />
		End Property<br />
		void AddUrlAndNotify(String pocsUrl, String pocsTitle, Integer dwFlags, Integer fWriteHistory, Object poctNotify, Object punkISFolder)<br />
		Dim ClearHistory() As void<br />
	End Interface<br />
 <br />
         'UrlHistory class	<br />
         (ComImport> _ <br />
	(Guid("3C374A40-BAE4-11CF-BF7D-00AA006946EE")> _ <br />
	Public Class UrlHistoryClass<br />
	End Class<br />
End Namespace>

<br />
Dim xlApp As Microsoft.Office.Interop.Excel.Application<br />

Imports System.DirectoryServices
.
.
.
    ' Allocate a new Directory Entry object and point it 
    '   at the user object we want to rename.
    Dim de As New DirectoryEntry("LDAP://whateverPathToUserObject")
 
    ' Rename the object and commit the changes to the directory.
    de.Rename("myNewUsername")
    de.CommitChanges()
 
    ' Clean up and destroy the Directory Entry object we created.
    de.Close()
    de.Dispose()
    de = Nothing