RamPhantom Part3

1 名前：名無しさん＠お腹いっぱい。 mailto:sage [2008/11/10(月) 20:20:37 ID:5+WQFhVT0] RamPhantomはメモリ上に仮想ディスクドライブ（RAMディスク）を作成するソフトです RamPhantom3 www.iodata.jp/product/hdd/soft/ramphantom3/index.htm RamPhantom3 LE www.iodata.jp/promo/memory/software/ramphantom/index.htm RamPhantom - Wikipedia ja.wikipedia.org/wiki/RamPhantom 前スレ RamPhantom【メモリ→仮想でPC高速化】 2 pc11.2ch.net/test/read.cgi/software/1223452245/ 288 名前：281 mailto:sage [2008/12/02(火) 00:07:55 ID:UnhUIZAX0] ' ----------------------------------------------------- ' StartupWaitスクリプト(Windows Script Host) ' 初心者が適当に作ったので適当に弄ってちょ ' ｼｮｰﾄｶｯﾄをｽﾀｰﾄｱｯﾌﾟに張れば動く。 ' ﾌｧｲｱｵｰﾙ・ｳｲﾙｽﾁｪｯｸ等に引っかかるので許可する。 ' ----------------------------------------------------- Dim objFSO ' FileSystemObject Dim strDrive ' ドライブ名(RamDisk) Dim strFolder ' フォルダ名(作成) Dim strProgram ' 延期起動プログラム名 Dim strMessage ' 表示用メッセージ Dim nCount, nFlag 289 名前：281 mailto:sage [2008/12/02(火) 00:08:28 ID:UnhUIZAX0] strDrive = "Z:" Set objFSO = WScript.CreateObject("Scripting.FileSystemObject") If Err.Number = 0 Then nFlag = False For nCount = 1 To 180 ' 180秒まで待ってみる nFlag = objFSO.DriveExists(strDrive) If nFlag = False Then WScript.Sleep(1000) ' １秒待ってみる End If Next 290 名前：281 mailto:sage [2008/12/02(火) 00:09:03 ID:UnhUIZAX0] if nFlag = True Then ' ドライブは存在した？ ' strProgram = """C:\Program Files\xxxxx.exe""" ' Set objShell = WScript.CreateObject("WScript.Shell") ' objshell.Run strProgram strFolder = "Z:\Temp" Set objFSO = WScript.CreateObject("Scripting.FileSystemObject") If Err.Number = 0 Then If objFSO.FolderExists(strFolder) = False Then objFSO.CreateFolder(strFolder) End If End If End If End If Set objShell = Nothing Set objFSO = Nothing

---

---

[ 続きを読む ] / [ 携帯版 ]

read.cgi ver5.27 [feat.BBS2 +1.6] / e.0.2 (02/09/03) / eucaly.net products.
担当:undef