FSO

久しぶりにテキスト(csv)の読み書きを。。と思ったらなんとやり方を忘れかけていたので今更ながらの備忘録。Dimfso,f_in,f_outSetfso=CreateObject("Scripting.FileSystemObject")Setf_in=fso.OpenTextFile("任意のファイル名_読込",ForReading)Setf_out=fso.OpenTextFile("任意のファイル名_書出",Fo

三井海洋開発わたす、うつなんです。障がい者なのです。みなさまもそうでしょうが、今一番怖いのがコロナです。できるだけ、外出せずにと、病気の特性上そう思います。数少ない友人、自称、物知りの友人がこのお会社のこと「浮体式海洋石油・ガス生産設備の建造等を手掛ける」と教えてくれました。「浮体式海洋石油･ガス生産設備」のこと、お会社のホームページに「ＦＰＳＯ/ＦＳＯ」とご説明がありました。「ＦＰＳＯＦｌｏａｔｉｎｇＰｒｏｄｕｃｔｉｏｎ，Ｓｔｒａｇｅａｎｄｌｏａｄｉｎｇｓ

Rです。最近スマホのLINEアプリの調子が悪い！！省電力モードでやってるんですけど、全然通知鳴らない時あったり。ちょっとLINE開いたら鬼のように会長からLINE来てたりとか。ビビりますよね（笑）(というわけで会長！寝てたわけではございません！)スマホ買い替えは検討してます。さてさてフォールアウトシェルターオンラインやっていく。暇だったんで、前に書いてたSRキャラのエイリアン取りました。これでメモリーデンの貯金は底をつく。。。1枚は欲しかったクリティカ

Rです。今日はこの状況で頑張ってた嫁に寿司をご馳走しました。旨かったなぁ。さてさて、フォールアウトシェルターオンラインやっていこうと思う。前回で次誰取るか？フォールアウトシェルターオンラインなブログ⑧『フォールアウトシェルターオンラインなブログ⑧』Rです。メモリーデンの報酬について悩む。てのはウチのエースタンクであるジークがカンストしたんで、他のキャラを取りに行くかって事ですよ。選択肢としては2つ…ameblo.jpなんて検討してました

Rです。メモリーデンの報酬について悩む。てのはウチのエースタンクであるジークがカンストしたんで、他のキャラを取りに行くかって事ですよ。選択肢としては2つ。①ケイト姐さん登場はフォールアウト4ですね。なんか奴隷で闘技場で金稼いでる姐さんでした。仲間になってからはレギュラー入りはせず、ウチの畑耕すことに生涯を尽くしました。スキルが良いんだよなぁー。敵にスタンかませるキャラ欲しいと思ってたところ。だがポジションはタンク。ウチのジークのスキル「反射」を捨てて

Rです。前回いつだっけか。まぁ毎日ログインボーナスはもらうくらいにはやってます。今日はこの辺書いてくか。①メモリーデン勝てなくなってきたんやけどスマホ壊していい？②コンバットゾーン勝てへんのやけどスマホ壊していい？※対策は後半で！！そうそう。戦前のお金が結構溜まってきたのでガチャ回したところ・・・出ました！！我らが「パラディン・ダンス」！！これは意外も意外で嬉しかったですね。意外ってのはこのゲーム中々SSR来ない聞いてたからね。無課金ガチャでSSRはフ

Rです。ようやく県を跨いだ移動もね。解禁ということで。良かったですよね。私は故郷に散財しに行こかなと計画中です。てことでアクセス行きます。前回のイベント「輝きの海」終了後にまた来ました。「女王襲来」これ昨日か一昨日かな。来たの。全くやってなかったのよこのアプリ。てのはいわゆるソシャゲあるあるで。「今日はこれとこれをやりなさい。」てのがね。本当に憂鬱なんです。初めは良いけどね。慣れてくると腹立ってくるんですよ。私がソシャゲに飽きる理由がこれです。ま

Rです。最近GTAVがおもろすぎて、あまりやれてませんがアクセス美味しいので書いていきます。現PTは変わらずこんな感じ。アタッチメントが揃わずｻﾗﾘｵﾝｽﾞ以下はちょっと憂鬱。そのせいか今日はPvPで格下の戦力相手にボロ負けした。うん。何かが足りない。ガチャに力入れてSSR引けばそりゃ楽なんやろけど、今じゃない感。今の戦力でまだ戦えるはず。そうなるとアタッチメントの吟味になるか。ジークにはアトムキャッツのアタッチメントをつけたくて奮闘中な

Rです。明日は久しぶりに出社。てことでやっていきます。「タンクは誰がオススメ？」なんて全チャで流れてたので傍観してたら「ジークがオススメです！」てチャットがあったのでなるほど！って感じで取ってみた。幸いメモリーデンの報酬で充分に賄えたので難なく無課金でゲット。SRのジーク。やはり忘れてるのでggってみると、FO4で出てたみたい。いや全然覚えてないわ！！まあこいつが育てば、現タンクのドッグミートとお別れになるのだけど。名

Rです。本日もテレワーク。てことで進めていきますよー。今回は輝きの海攻略です。ここ原作でやったときはワクワクしたなぁーって感じで思い入れ深いエリアです。原作ではレアアイテムが手に入るエリアだったはず。このアプリもそんな感じですね。セクション進む度に消耗していく味方。帰るか進むか。その選択肢に悩みながらってのが原作ライクでよい。真っ先に帰るけど。次のダンジョンはなんとなくクリアできそうだけど、しんどそうやし行かないよね。

Rです。さて頭の悪そうなタイトルをシリーズ化させていきます。SSRが増えました。サラ・リオンズ服装からしてB.O.Sなんやろけど誰やったっけ？てのがあったのでggってみる。居た。しかもFallout3のキャラ。全然覚えてないわ。キャラタイプはサポートですが、そんなめちゃ強！な感じはせず。まぁSSRなんでねッて感じ。こいつはせっせとプレイしてたら無課金で手には入りますので、無課金勢には朗報ですね。120円課金勢の私の現在のパーティーはこんな

Rです。宣言解除後もまだ会社に行ってません。有志で「どうしても会社行きたい人ー？」みたいなんあるけど。絶対手挙げへんよね。気がつけば俺が一番会社行ってへんという。多分ね。それが評価に繋がる気がするのよ。でもおかしくない？まあええわ。てことでね。フォールアウトシェルターオンラインがリリースされましたよ。これ皆さん暇つぶしにやってみてください。当ブログによく出るフォールアウトシリーズのスマホアプリですね。スマホアプリなので導入はタダな

こんにちは！Re:coです間違えて、前回の記事を消してしまいました💦いいね！をくださった方申しございませんそこでご案内させていただいていた福岡のイベントに出演させていただきました！-SHOWMELive-2020.2.23（sun）福岡今泉GRANDMIRAGEevol第一部がshihoさんのワンマンライブ、(ソウルフルな歌声、素敵だったー💕)第二部のDJタイムを挟み第三部のパフォーマンスタイムへなんと！トリから2番めで踊らせていただきました✨わたしはFS

前回と同様ですがSetobjExcel=CreateObject("Excel.Application")IfobjExcel.FileDialog(4).Show=TrueThenresult=objExcel.FileDialog(4).SelectedItems(1)ElseMsgBox"キャンセルされました"SetobjExcel=NothingSetFSO=NothingWScript.QuitEndIfSetobjExcel

先の投稿クリックだけで、必要なデータをCDに保存するプログラムでフォルダを選択するダイアログを紹介しましたが意外と厄介だったBrowseForFolderの通り、ちょっと？？でしたのでエクセルの機能をちょっとお借りして作り直してみました。なので、エクセル（Office)がインストールされているWindowsパソコンで作動します。メモ帳を開いてDimFSODimobjExcelDimmyDrivesDimmyDriveDimmyFolderDimfDim

よく考えてみると、CDドライブがDドライブとは限らない。一応、それぞれのパソコンのCDドライブのドライブ名も探しておきます。過去投稿のクリックだけで、必要なデータをCDに保存するプログラムで紹介したコードのSetmyDrives=FSO.DrivesForEachmyDriveInmyDrivesIfmyDrive.DriveType=4thenExitForEndIfNextでDriveT

CDドライブがD:で、既にフォーマット済みのCDが挿入されているとします。Subボタン5_Click()DimFSOAsObjectSetFSO=CreateObject("Scripting.FileSystemObject")FSO.CopyFolder"コピーしたいフォルダ","D:\"EndSubフォルダ以内のサブフォルダをコピーしたい場合はFSO.CopyFolder"コピー元のフォルダ\*","D:\"コピー後に、元のフォルダを

次もファイルの操作ですが、・ファイルの移動・ファイルのコピーこちらも、エクセルの関数を使う方法SetFSO=CreateObject("Scripting.FileSystemObject")を使う方法があります。エクセルであれば、アクセルの関数を使った方が簡単ですので紹介します。先の投稿保存したファイル名の一覧を作る。で作成したファイルを使ってみます。B列の3行目以下に、ファイル名の一覧が出来ていると思います。Subボタン5_Click()DimiAsInt

先の受信した添付ファイルを保存する作業でDir(ThisWorkbook.Path&"\"&attFileName)<>""と云うコードを紹介しました。ThisWorkbook.Path&"\"&attFileNameのパスに指定したファイルが存在する場合です。Dir関数でThisWorkbook.Path&"\＊.*"とすると指定したフォルダにファイルが複数存在する場合に使えます。ファイル名まで指定すると、そのファイルが存在するかどうかに使えます。さて

写真=BOMInstagram2NE1出身の歌手BOMが、Netflixのリアリティシットコム（シチュエーションコメディー：一話完結で連続放映されるコメディードラマ）の「YG戦略資料本部」に出演する心境を明らかにした。BOMは本日（4日）、自身のInstagramに「YGEntertainment'ssitcom“YGFSO”（YGFuturestrategyOffice）willpremiereonNetflixonOctober5th,whichis

エクセルのVBAあまり知られていない使い方を幾つか紹介してみたいと思います。第一弾はDir関数過去にも幾度か紹介しましたが、整理しておきます。使い方例１ファイルの有無変数=Dir(フォルダーへのパス\ファイル名)ファイルが存在すれば変数には、ファイル名なければ空白になります。使い方例２ファイル名の一覧変数=Dir(フォルダーへのパス\ファイル名)最初に見つかったファイル名変数=Dir(）次に見つかったファ

スタッドレス履いてへん今シーズンホームリザーバーまで路面と相談で思うように釣行できへん日続きここんとこ春めいてそんな調整なくなりよーやく今年の初バスGETど足元で喰ったから巻き合わせしたら竿先までバスついた(°∀°)ルアー:アニマOrigin(FSO)アニマでの最小記録な50にも足りへん可愛いやつけど嬉しい(´∀`)今年は去年よりやれる自信あるしビッグバス獲った時むけて自撮りの練習しとこ(･∀･)笑

遂に、Vitaで、PSO2‐ファンタシースターオンライン2‐始めましたァ♪かなり、容量デカく…14Gも使ってます16Gメモカだから…2Gしか残ってない32G買おうかな…マイアバター載せておきます。自分の身長にしてみましたwなにより、猫耳キャラにしてみたかったから出来て良かった!!しかし、今日は定期メンテナンス…。帰ったら追加データダウンロードしなくては…では×2アディオス