* Program: ModiView.prg * Author: George Tasker * Date: December 22, 2000 - 12:19 PM * Purpose: Updates a view LPARAMETER tcView LOCAL oShell oShell = CREATEOBJECT('WScript.Shell') oShell.Run('modiview.vbs') MODIFY VIEW (tcview) * ======== Modiview.vbs ========= Dim oShell Set oShell = CreateObject("WScript.Shell") ' Call Sleep to wait 1/2 second WScript.Sleep(500) ' Use SendKeys to send Enter oShell.SendKeys("~") WScript.Sleep(200) ' Remove all fields oShell.SendKeys("l") WScript.Sleep(200) ' Restore all fields oShell.SendKeys("d") WScript.Sleep(200) oShell.AppActivate("Microsoft Visual FoxPro") ' Open the menu oShell.SendKeys("%") WScript.Sleep(200) oShell.SendKeys("F") WScript.Sleep(200) ' Close the designer oShell.SendKeys("C") WScript.Sleep(200) ' Respond Yes to the changes oShell.SendKeys("~")Now all I have to do is write a short program with a loop to go through the databases passing it the view.