>directory$ = curdir$()			'ファイルのあるディレクトリ
>の部分をいじればいいらしいことはわかるのですが･･････。

directory$ = left$(@Pathname$, inrstr(@Pathname$, "\"))

と書き換えればできるはずです。