You can separate long commands with ";" at the end of each line. This will make it more readable, both in your VFP, and here in the UT.
SET DEFAULT changes to a specific directory. You don't need the TYPE clause. Therefore, it will give you an error.
For ThisForm.Text1.Value, give the value in quotation marks. Again, it would make sense to specify only the directory, not the file type:
ThisForm.Text1.Value = "d:\bills\aar"
if "aar" is a directory, and you want to specify a directory, or
ThisForm.Text1.Value = "d:\bills\aar.xls"
if you mean a file called "aar.xls".
>hi all,
>
>i need to go at this sheet directly
>
>
>set defa to d:\bills\aar\ type xls
>thisform.text1.Value=d:\bills\aar\ type xls
>
>LOCAL lcTableName
>lcTableName = thisform.text2.value
>CREATE TABLE &lcTableName (a C(50), b C(70),c C(50), d C(50),e C(70), f C(70),s C(70), l C(70),char9 c(70),;
> char10 c(40),char11 C(10), char12 C(60),char13 C(50), char14 C(40),char15 C(10), char16 C(10),char17 C(10),;
> char18 C(70),char19 C(10), char20 C(10),char21 C(10), char22 C(40),char23 C(10), char24 C(10),char25 C(10),;
> char26 C(70),char27 C(10), char28 C(10) NOCPTRANS)
>APPEND FROM (thisform.text1.value)TYPE XLS
>
>USE (thisform.text2.value) exclusive ALIAS SomeAlias
>
>GO TOP
>DELETE NEXT 6
>
>
>thanks
>m.qasem
Difference in opinions hath cost many millions of lives: for instance, whether flesh be bread, or bread be flesh; whether whistling be a vice or a virtue; whether it be better to kiss a post, or throw it into the fire... (from Gulliver's Travels)