* 掲示板にC#で親ディレクトリを取得する方法に関する質問が挙がっていたのでVFP版で考えてみました。
* 昔ながらのローテクです。(笑)
LOCAL
loDir,loParentDir,lnI
loDir =
FULLPATH(SYS(2003)) && 現在のディレクトリを取得
? "&loDir."
loParentDir = ""
*!* 3階層上のディレクトリを取得する場合
FOR
lnI = 1 TO 3
CD "../" && 上位ディレクトリに移動
loParentDir = FULLPATH(CURDIR()) && 上位(親)ディレクトリを取得
? "&loParentDir." && コンソール上に表示
NEXT
CD
"&loDir." && 一番最初のディレクトリに戻す
Visual FoxPro NO 10・・・の話を以前、書いた訳ですが、正直ガックリ来ていました。
もう、プログラム書くのなんかやめちゃおうかな、とも思ったりして。
でも、昨日、一昨日と、ある尊敬する人と、一緒にお酒を呑む機会があり、そこで見聞きしたお話で、逆境に耐て見ようと思い直す事にしました。
愚痴なんかも書いちゃうかも知れませんが、今後ともよろしくお願いいたします。<皆様
VFP(Microsoft Visual FoxPro)のサンプルとサンプルコードの実験用ページをアップしました。
サンプルのアプリを動作させる為にはVFPのRUNタイムの集合体である
FORBS (Fox Object Request Broker System )が必要です。
詳細はMY TEST PAGEを参照してくださいませ。
admin@microsoft.com
と言うメアドから怪しいメールが届いていました。
タイトルは
Internet Explorer 7 Downloads だそうで、即ゴミ箱行き決定ｗｗｗ
ちょうどYahoo！を見ていたら
http://www.itmedia.co.jp/enterprise/articles/0703/30/news038.html
と言う記事のリンクが出ていました。
ここの人達はこんなのには引っかからないだろうけれど、念の為。
Visual FoxPro10が出ないことがMicrosoftから正式にアナウンスされました。
って、おい！Microsoft Visual FoxPro研究所作ってすぐなのにどうしてくれるんだ？！
実は3日位前から知っていたのですが、ちょっと落ち込んでしまいました。
いつかはこの日が来るとは思っていましたが・・・。
しかし、すぐに使用出来なくなる訳では無く、2015年まではサポートされるようなので
今すぐには問題ありません。残り約8年ですね。
その間に、計画の変更などもあるかも知れないし、もう少しVFPで頑張りたいと思います。
でも、他の言語も真剣に学ぶ事も検討しないとなりませんね・・・。
今からなら、何が良いかな？VC#？VB.NET？JAVA？・・・それとも？
うーん悩むなぁ。
次回はVFPのテクニカルな記事にします。
Visual FoxProを使ってInternet Explorerを表示する際に右上の×(終了ボタン)を非表示にする方法です。
IE 6.02 Versionで動作確認しております。IE7はわかりません。
VBSを使用した場合のソースも↓↓↓の方に貼り付けておきます。
*********************************************************
*
* IEでCLOSEボタン、不要なメニューを表示させない方法
*
* Visual FoxPro用のソースコード
*
*********************************************************
*!* IEのバグ？下のステートメントで何故かIEの×ボタンを殺せます。
*!* 普通に考えれば×が消える訳なさそうですが・・・？？？
*!* Windows XP Home/Proffesional 両方で確認済み
*!* IE = Ver 6.02
Local oIE AS InternetExplorer.application
oIE = Createobject("InternetExplorer.application")
* 赤字のステートメントが欠落していました。申し訳ありません。m(＿)m
oIE.GoHome && もしくは oIE.Navigate("URL")
oIE.MenuBar = .F.
oIE.TheaterMode = .T.
oIE.FullScreen = .F.
oIE.
Resizable = .F.
oIE.FullScreen = .T.
oIE.TheaterMode = .F.
**********全画面表示の場合の一例、実際の使用の際は変更してください
oIE.
Top = -2
oIE.
Left = -2
oIE.
Height = SYSMETRIC(2) + 4
oIE.
Width = SYSMETRIC(1) + 4
oIE.
Visible = .T.
oIE = ""
*!* ウインドウを閉じるには ALT + F4で閉じてください。
Return
VBScript用のソースコード(以下のコードをTEXTファイルにコピーして拡張子をVBSに変更して実行ください)
Dim oIE
Set oIE = Wscript.CreateObject("InternetExplorer.application")
oIE.GoHome ' もしくは oIE.Navigate "cURL"
oIE.MenuBar = False
oIE.TheaterMode = True
oIE.FullScreen = True
oIE.Resizable = False
oIE.FullScreen = True
oIE.TheaterMode = False
oIE.Visible = True
oIE = ""
' ウインドウを閉じるには ALT + F4で閉じてください。
fox@千葉です。
Visual FoxPro研究所と言う事でVFP(Visual FoxProの略)のネタを書こう！と思いましたが
果たして、どの辺りのネタから書くのが適切なのだろうか？と悩み中です。
わんくま同盟の皆様は僕よりも遥かに高いスキルをお持ちなのであまり、基本的過ぎる内容じゃつまらないだろうし
あまり、VFPに偏向し過ぎた内容だと、VFPを使っている人しか分からないだろうし・・・。
さて、どうしよう・・・？！
新しく加盟しました「fox」と申します。
Microsoft Visual FoxProの話しを中心に投稿する予定です。
今後とも、よろしくお願いいたします。