SHIMAPEE の回答履歴

メールをしていると　 「最適化しますか」と　メッセージが出るので「OK」するのですが　　「Outlook Expness または　ほかのアプリケーションが　　 このフォルダを　使用しています」と警告メッセージが出ます。 いつも無視をしてキャンセルしていましたが　　 どうしたらよいのでしょうか。教えて下さい。

VBScriptはまったくの初心者ですので、自分なりに調べてはみたのです がどうしてもわからなかったため質問しています。 OSはWinXPになります。 VBScriptで特定のフォルダ(C:\AAA\)以下からファイル(*.txt)を検索し てコピーするプログラムを書きたいです。 C:\AAA\・・・\*.txt 指定したフォルダからファイルを検索をすることはできたのですが、サ ブフォルダがたくさんある場合のファイル検索ができませんでした。 コピーの仕方は検索したファイルから最新のタイムスタンプのファイル以外を別フォルダにコピーしたいです。 あとわかりやすいVBScriptについて記載されているサイトも教えていただけると助かります。

VBScriptはまったくの初心者ですので、自分なりに調べてはみたのです がどうしてもわからなかったため質問しています。 OSはWinXPになります。 VBScriptで特定のフォルダ(C:\AAA\)以下からファイル(*.txt)を検索し てコピーするプログラムを書きたいです。 C:\AAA\・・・\*.txt 指定したフォルダからファイルを検索をすることはできたのですが、サ ブフォルダがたくさんある場合のファイル検索ができませんでした。 コピーの仕方は検索したファイルから最新のタイムスタンプのファイル以外を別フォルダにコピーしたいです。 あとわかりやすいVBScriptについて記載されているサイトも教えていただけると助かります。

Outlook Express6（win）のアカウント設定で 「メールのコピーをサーバーに残す」というのがあります。 これをしておくと、Aというパソコンでメールを受信しても、 サーバーにコピーが残っているので、新たにBというパソコンで 受信できます。 で、質問ですが、上記設定のもと、 Aというパソコンからメール送信したときには Bというパソコンには送信履歴が残りません。 これを、残るようにする方法・工夫ってありますか？

メールソフトはアウトルックエクスプレスをしようしています、ウインドウズはXPです。 メールアドレスを登録していますが、相手に送信するときは登録した名前が出ますが、メールを受信するときは登録した名前は表示されないのでしょうか？ 携帯電話は登録すると送受信共にその方の名前がわかりますよね。

outlook express6を使っています。今までメールを作成してそれを名前をつけて保存しても編集できていました。 それが更新プログラムをインストールしたら編集できなくなってしまいました。（開くことはできます） どうしたらいいのでしょうか。教えてください。

かなり困っています。もう半年ほど前の話になりますがどなたか助けてください。 Outlook Expressでメールを送受信しています。 過去４年間、送受信をしていたのですが、ある日突然、受信箱のメールが消えていました！ アウトルックの中身が全て消えてるのかと見たところ、削除済みは残っているし（完全に消去していない分）送信はナゼか一部だけ （日にちの新しい分数日）が残っていました。 勿論自分で削除していないし、誰もパソコンを触ったりはしません。私はネットを８年くらいしていますが、今のパソコンに買い変えて、勝手にメールが消えたなんて初めての出来事でした。 どうにかして取り戻したくて、可能な限り前まで「システムの復元」をしましたが全く戻りませんでした。 あと、アウトルックのデータ（？）が入っている、『Identities』の中の暗号化されたファイルをインポートすれば戻るんじゃないかな？と思い、やってみましたがファイルの中身がカラでした。 実はこうなる数週間前くらいから、パソコンが自動的に再起動がかかるようになっていました。 ウィルスを疑ってトレンドマイクロのウィルススキャンをかけても出てこないし、avast！も入れておいたのですが全然起動しませんでした。その矢先の出来事だったのです。 で、私では分からないので、パソコンの詳しそうな友人に家に来てもらい、消えてしまったメールを取り戻してもらおうとお願いしたのですが、結局数時間かかっても取り戻すことは出来ませんでした。 （その時は何かソフトを使って復元してもらいましたがダメでした。リカバリーはしていません） 私が専門用語など分からないこともあり、原因などは聞いていないのですが、その後半年はパソコンは正常に動いていました。 また最近、パソコンが勝手に再起動がかかります。。。 ウィルス対策はしているので、多分パソコン内部の故障だと思うのですが、ダメもとでリカバリーしようと思っています。 その前に！！！！ 半年前に、完全に消えてしまった４年分のメールがどうしても取り戻したいんです。 ずっとブログを書いていて、自分の保存用にメールで届く設定にしてあって、身内の亡くなったことなど、思い出がいっぱい詰まっています。 パソコンが壊れる前に、どうかお願いします。m(_ _)m

VBScriptでPC本体の製造番号（シリアルナンバー）を抜き出す方法を教えてください。 現在、CPU-Zというフリーソフトを使ってCPU-Zがはき出したテキストをVBScriptで読み込み、製造番号を取得しています。 今回は、VBScriptのみで製造番号を取得したいのですが、方法が見あたりません。宜しくお願い致します。

こんにちは。 自分史上初めて投稿します。 テキストファイルを簡単に操作出来るということを聞いて、さいきんVBSを勉強し始めました。 そこで、特定のファイルの中身を読み込んで配列関数を使い配列に格納した後、特定の文字列が含まれる場合には別の文字列へと変換したいと思っているのですが、正規表現が上手くいきません（汗） どなたか助けていただけませんでしょうか？ それともそもそも正規表現が使えないなんてことはないですよね・・・？ よろしくお願いいたします。 ちなみに書いたコードは↓ Set WSHFso = CreateObject("Scripting.FileSystemObject") Set WshShell = WScript.CreateObject("WScript.Shell") Dim strSearchWord Set tmpFile = WSHFso.OpenTextFile("C:\Documents and Settings\●●●\○○.txt") Do Until tmpFile.AtEndOfStream tmpLine = tmpFile.ReadLine strSearchWord = strSearchWord & tmpLine & vbcrlf Loop Dim SearchWord SearchWord = split(strSearchWord," ") Select Case SearchWord(9) 'ここで『東京』というワードが含まれる場合に別処理を走らせたいのです・・・。 Case "*" & "東京" & "*" msgbox SearchWord(10) Case Else msgbox SearchWord(101) End Select

VBS(WSH)超初心者です。どうぞよろしくご教授ください。 Pcomm(AS400クライアント接続ソフト）のサイレントインストールを、VBS（WSH)でやりたいと思っていますがスクリプトエラーとなってしまいます。 ＜質問内容＞ 下記スクリプトを実行すると、PcommPath=の行で「ステートメントの末尾が不正です」となってしまいます。 多分、ダブルクォーテーションの使い方が間違ってると思うのですが、色々調べてみましたがわかりません。 どなたかご教授くださいませ。 なお、（VBSではなく）「ファイル名を指定して実行」からなら問題なくサイレントインストールできます （コメントアウトしてる D:\install・・・/qb"部分を実行） どうぞよろしくお願いいたします。 [スクリプト] Option Explicit Dim objWshShell,objWshScriptExec,PcommPath 'D:\install\pcomm\setup.exe /s /v"USEINI=\"C:\Pcomm.ini\" /qb" '上記中のPcom.iniはカストマイズ用のファイル。 ’上記で、「ファイル名を指定して実行」からなら問題なくサイレントインストールされます PcommPath="D:\install\pcomm\setup.exe /s /v"USEINI=\"C:\Pcomm.ini\" /qb"" Set objWshShell=WScript.CreateObject("WScript.Shell") Set objWshScriptExec=objWshShell.Exec(PcommPath) （以下略）

VBScripptのsendkeysにてALT+CTRL+INSERTを同時に行いたい 下記にて、行いましたが、うまくいきません SendKeys "%^{INSERT}" どなたかヒントを御願いします →３つのキーは同時にできない？

Delphi　6又はターボ TEdit（コンポーネント？）の幅を、入力された文字数に合わせて自動的に大きくしたり小さくするプロパティ（？）ってありますか？

お世話になります、以下CreateShortcutメソッドについて引っかかってしまいましたので ご存知の方、知恵を貸してください。 以下のようにAllUserデスクトップとAllUserプログラム下にショートカットを作成しようと考えています。スクリプトを実行すると、デスクトップにショートカットが作成され、ちょっと時間が経ってからもう一つデスクトップにショートカットが作成され、計デスクトップに二つ、プログラム下に１つ作成される状態になります。 この状態で再起動を掛けると表示はデスクトップに一つ、プログラム下に一つに戻っています。 いろいろと試行錯誤してはみましたが理由が分かりません。 一つショートカットを作成し、それをコピーすれば良い話ではありますが、原因が分かる方ご教授下さい。 以上、よろしくお願いいたします。 -----ここから----- set objFS = Scripting.FileSystemObject set objWshShell = WScript.Shell Dim strFileName, strFileName1, objShortCut, objShortCut1 strFileName = objWshShell.SpecialFolders("AllUsersDesktop") & "\test.lnk" strFileName1 = objWshShell.SpecialFolders("AllUsersStartMenu") & "\プログラム\test.lnk" If not objFS.FileExists(strFileName) then 　　Set objShortCut = objWshShell.CreateShortcut(strFileName) 　　objShortCut.TargetPath = objWShShell.ExpandEnvironmentStrings("%ProgramFiles%") & "\test\Bin\test.exe" 　　objShortCut.Save end If set objShortCut = Nothing If not objFS.FileExists(strFileName1) then 　　Set objShortCut1 = objWshShell.CreateShortcut(strFileName1) 　　objShortCut1.TargetPath = objWShShell.ExpandEnvironmentStrings("%ProgramFiles%") & "\test\Bin\test.exe" 　　objShortCut1.Save end If

お世話になります。下記、何かよい方法があればご教示下さい。 　 以前、あるメール（マガジン）が届き、現在も受信トレイにあります。 ただ、そのメールを開こうとした瞬間、ＰＣがフリーズしてしまいます。 プレビューウインドウ＝なしとしてみても、状況は同じです。 前にも後ろにも関係ないメールがあるので、サンドイッチ方式に挟んで 一気に削除してみようとしたりしましたが、ダメでした。 発信元（ある通販業者が見かけ上の発信元にはなっています）に問い合わせて みたのですが、そのようなトラブルは聞いたことがないとのコトで、一向に 埒が明きません。 何か、救済策はないものでしょうか？ 　 こういうことに詳しい方がいらっしゃいましたらアドバイス頂けましたら、と 思い投稿してみました。 　 なにとぞ、宜しくお願いいたします。 　

WSHで画像ファイル情報をHTMLに整形してクリップボードに送りたいです。 エクスプローラでjpg/gif/pngを右クリックしたときだけ コンテキストメニューに「タグ取得」みたいなメニューが出てきて それをクリックすると、クリップボードにとりあえず <img src="imgname.gif" width="xxx" height="xxx" alt="imgname.gif"> というタグを送りたいです。 jpg/gif/pngを右クリックしたときのコンテキストメニューへの「タグ取得」の追加はContexterでやります。 http://pasokon-yugi.cool.ne.jp/~ko-ichi/ 当方の環境は、WindowsXP(SP2)、.NET Framework 3.0などです。 よろしくお願い致します

IEの操作に関して、あるhtmlページに複数のラジオ・ボタンがあってそのなかの一つを選択する方法を教えていただけますでしょうか。 そのラジオ・ボタンは次のようにjava scriptでソースに記述されています。 <input type = "radio" name="bname" value="5"> そこで次のようにマクロで記述したのですが、「実行時エラー：438、オブジェクトはこのプロパティまたはメソッドをサポートしていません。」と出ます。 .Navigate targetURL With .Document.Forms(0) .Item ("bname") .Value(5).Checked = True ←　ここでエラーが出る。 End With .Value(5)を.Value("5")としても同じエラーがでます。 別のプロパティ・メソッドが必要なのでしょうか。

IEの操作に関して、あるhtmlページに複数のラジオ・ボタンがあってそのなかの一つを選択する方法を教えていただけますでしょうか。 そのラジオ・ボタンは次のようにjava scriptでソースに記述されています。 <input type = "radio" name="bname" value="5"> そこで次のようにマクロで記述したのですが、「実行時エラー：438、オブジェクトはこのプロパティまたはメソッドをサポートしていません。」と出ます。 .Navigate targetURL With .Document.Forms(0) .Item ("bname") .Value(5).Checked = True ←　ここでエラーが出る。 End With .Value(5)を.Value("5")としても同じエラーがでます。 別のプロパティ・メソッドが必要なのでしょうか。

メッセージルールから、受信メールを自動的にフォルダに振り分けはできます （送信元のアドレスで振り分け） しかし、送信するメールは全て送信済みアイテムにしか入れられず、 送信済みアイテムの下にフォルダを作っても、そこに自動振り分けすることはできませんでぢた 自動振り分けは不可能なのでしょうか？ バージョンは６です

VBScriptにより、サーバー上で単にレジストリーのキーごとすべて削除したいのですが、 キーがない場合そこでエラーになり終了してしまいます。 キーの有無にかかわらず、キーがある場合のみ削除するにはどのような スクリプトにしたらよいかアドバイスをください。 スクリプトはこんな感じです。 -------------------------------------------------------------------- Dim WshShell dim bKey Set WshShell = WScript.CreateObject("WScript.Shell") WshShell.RegDelete "HKLM\Software\Tivoli\" WshShell.RegDelete "HKLM\Software\Microsoft\Windows\CurrentVersion\Uninstall\lcf\" WshShell.RegDelete "HKLM\System\ControlSet001\Enum\Root\Legacy_lcfd\" WshShell.RegDelete "HKLM\System\ControlSet001\Enum\Root\Legacy_TECWINADAPTER*\" WshShell.RegDelete "HKLM\System\ControlSet001\Services\lcfd\" WshShell.RegDelete "HKLM\System\ControlSet001\Services\lcfd\TECWINADAPTER*\" WScript.quit ----------------------------------------------------------------- UNIX　Shell　はわかるのですが、Windowsに関してはさっぱりわかりません（Object志向のものは苦手なもので・・・）。 もしこれらをUNIX　Shell（b,c,k,Shell)でスクリプトを作成する場合、 ひとつひとつif文でファイルの有無を判定し、その結果を標準出力へ出し、その結果、「真」であれば（ファイルがある場合）そのキーを削除する・・・そして、スクリプトの結果を実行ユーザーのホームディレクトリー直下にファイルにして保存・・・というようにするのが一般的ですが、Windowsではどのように記述すればよいかご回答いただければ幸いです。 みなさんもお忙しいと思いますがよろしくお願いします。

Delphiから ExcelのSheet1のCells[1,1]からSheet2のCells[1,1]、 Sheet1のCells[1,2]からSheet3のCells[1,1]へとSheet間にリンクを はる方法を教えてください。 Excelは下記のように起動しております。 Excel := CreateOleObject('EXCEL.Application'); Excel.Visible := True; Excel.Workbooks.Add; Excel.WorkBooks[1].Sheets.Add; Excel.WorkBooks[1].ActiveSheet.Name:='Sheet1'; //---Sheet1へデータ送信 Excel.WorkBooks[1].Sheets.Add; Excel.WorkBooks[1].ActiveSheet.Name:='Sheet2'; //---Sheet2へデータ送信 Excel.WorkBooks[1].Sheets.Add; Excel.WorkBooks[1].ActiveSheet.Name:='Sheet3'; //---Sheet3へデータ送信 ここでりんくしたい。