思い出広場検索板メニュー
板一覧 / hase

長谷川亮太特定から1000日記念祭会場

1012 レス · dat原文

1：だれとは言わんが 2014/11/25(火) 22:39:03 ID:5WGtGgLc
国内4都市で予約
2：だれとは言わんが [sage] 2014/11/25(火) 22:45:24 ID:A/TVhvt6
唐澤貴洋殺す
3：だれとは言わんが 2014/11/28(金) 11:18:45 ID:rkRFPD46
テストやで
4：だれとは言わんが 2014/11/28(金) 11:58:55 ID:YhHtN4EI
おう
5：だれとは言わんが [sage] 2014/11/30(日) 01:40:43 ID:8IvwbGws
25 八神太一 ◆YAGAMI99iU 2014/11/30(日) 00:56:19.37 ID:hiDPsvOe0 ☆★長谷川亮太なりきりセット☆★ 八神太一#_ｲ~7G6LL 1000日記念はみんなでお面かぶるやで～
6：だれとは言わんが [sage] 2014/11/30(日) 01:42:19 ID:8IvwbGws
2009/12[ゴマモンの可愛さは異常] 2010/02[～俺は野球を愛してる～] 2010/04[情熱のかなたから蜃気楼～♪] 2010/07[～彼女一筋～] 2010/10[～セ界の覇者・読売巨人軍～][ロッテが味噌に負けたら改名するでやんす] 2011/02[彼女と現在７ヶ月▼勇気の紋章探し中] 2011/03[彼女と現在8ヶ月▼完全体][彼女と現在8ヶ月▼究極体] 2011/05[原点][背番号99] 2011/08[燃焼系～燃焼系～アミノ式♪] 2011/10[なんJの暴君] 2011/11[-だから今、僕はここにいる-]
7：だれとは言わんが [sage] 2014/11/30(日) 12:42:46 ID:8IvwbGws
前夜祭午前は特定まとめの再放送やったな
8：ゼミ開示 2014/12/01(月) 00:56:07 ID:PArB5.d.
351 名前:横向けば尊師 :2014/12/01(月) 00:08:15 ID:MJl0GfbM いつとは言わんが以前ガチで同じゼミだっただけに何とも言えないですわ・・・・・・ http://i.imgur.com/G4TEIyx.jpg 352 名前:横向けば尊師 :2014/12/01(月) 00:17:56 ID:TrdRAudM ymitsui 834 名前：風吹けば名無し＠転載禁止[] 投稿日：2014/12/01(月) 00:43:24.14 ID:LjcVXeF+M [3/3] 必死でガセを流してる奴は誰なんですかね？ シラバス見たらわかるやん 満井先生は3年のゼミを持ってるぞ http://i.imgur.com/4GGI16d.jpg https://kaedei.kokushikan.ac.jp/Syllabus/SyllabusView.aspx?uid=130935
9：だれとは言わんが 2014/12/01(月) 03:06:24 ID:pbHPWjYc
http://i.imgur.com/G4TEIyx.jpg http://i.imgur.com/4GGI16d.jpg http://i.imgur.com/rw4lSbT.jpg http://i.imgur.com/kgJ7KUk.jpg
10：だれとは言わんが 2014/12/01(月) 23:05:40 ID:j/xYtUTE
素材置き場いいねこれ
11：だれとは言わんが 2014/12/03(水) 09:26:17 ID:qWu9qd9M
1 風吹けば名無し＠転載禁止[] 2014/12/03(水) 08:15:34.53 ID:VKwZjtZR0 その過程を鮮明に撮影したブログがいつの間にか作られていた模様 命名は「ガーデンマスコット村上くん」 http://chinfe1000day.cocolog-nifty.com/photos/uncategorized/2014/12/02/tenpure21.jpg http://chinfe1000day.cocolog-nifty.com/photos/uncategorized/2014/12/02/tenpure29.jpg http://chinfe1000day.cocolog-nifty.com/photos/uncategorized/2014/12/02/tenpure22.jpg http://chinfe1000day.cocolog-nifty.com/blog/
12：だれとは言わんが 2014/12/04(木) 15:42:32 ID:A8Pl17Ro
36 風吹けば名無し＠転載禁止 2014/12/04(木) 00:15:30.45 ID:Bw5lH3JzM とりあえずゼミの先生には例の騒動のことを伝えといた 動画カス逮捕やろなぁ http://i.imgur.com/kA3RDv8.jpg
13：だれとは言わんが 2014/11/25(火) 22:39:03 ID:5WGtGgLc
国内4都市で予約
14：だれとは言わんが [sage] 2014/11/25(火) 22:45:24 ID:A/TVhvt6
唐澤貴洋殺す
15：だれとは言わんが 2014/11/28(金) 11:18:45 ID:rkRFPD46
テストやで
16：だれとは言わんが 2014/11/28(金) 11:58:55 ID:YhHtN4EI
おう
17：だれとは言わんが [sage] 2014/11/30(日) 01:40:43 ID:8IvwbGws
25 八神太一 ◆YAGAMI99iU 2014/11/30(日) 00:56:19.37 ID:hiDPsvOe0 ☆★長谷川亮太なりきりセット☆★ 八神太一#_ｲ~7G6LL 1000日記念はみんなでお面かぶるやで～
18：だれとは言わんが [sage] 2014/11/30(日) 01:42:19 ID:8IvwbGws
2009/12[ゴマモンの可愛さは異常] 2010/02[～俺は野球を愛してる～] 2010/04[情熱のかなたから蜃気楼～♪] 2010/07[～彼女一筋～] 2010/10[～セ界の覇者・読売巨人軍～][ロッテが味噌に負けたら改名するでやんす] 2011/02[彼女と現在７ヶ月▼勇気の紋章探し中] 2011/03[彼女と現在8ヶ月▼完全体][彼女と現在8ヶ月▼究極体] 2011/05[原点][背番号99] 2011/08[燃焼系～燃焼系～アミノ式♪] 2011/10[なんJの暴君] 2011/11[-だから今、僕はここにいる-]
19：だれとは言わんが [sage] 2014/11/30(日) 12:42:46 ID:8IvwbGws
前夜祭午前は特定まとめの再放送やったな
20：ゼミ開示 2014/12/01(月) 00:56:07 ID:PArB5.d.
351 名前:横向けば尊師 :2014/12/01(月) 00:08:15 ID:MJl0GfbM いつとは言わんが以前ガチで同じゼミだっただけに何とも言えないですわ・・・・・・ http://i.imgur.com/G4TEIyx.jpg 352 名前:横向けば尊師 :2014/12/01(月) 00:17:56 ID:TrdRAudM ymitsui 834 名前：風吹けば名無し＠転載禁止[] 投稿日：2014/12/01(月) 00:43:24.14 ID:LjcVXeF+M [3/3] 必死でガセを流してる奴は誰なんですかね？ シラバス見たらわかるやん 満井先生は3年のゼミを持ってるぞ http://i.imgur.com/4GGI16d.jpg https://kaedei.kokushikan.ac.jp/Syllabus/SyllabusView.aspx?uid=130935
21：だれとは言わんが 2014/12/01(月) 03:06:24 ID:pbHPWjYc
http://i.imgur.com/G4TEIyx.jpg http://i.imgur.com/4GGI16d.jpg http://i.imgur.com/rw4lSbT.jpg http://i.imgur.com/kgJ7KUk.jpg
22：だれとは言わんが 2014/12/01(月) 23:05:40 ID:j/xYtUTE
素材置き場いいねこれ
23：だれとは言わんが 2014/12/03(水) 09:26:17 ID:qWu9qd9M
1 風吹けば名無し＠転載禁止[] 2014/12/03(水) 08:15:34.53 ID:VKwZjtZR0 その過程を鮮明に撮影したブログがいつの間にか作られていた模様 命名は「ガーデンマスコット村上くん」 http://chinfe1000day.cocolog-nifty.com/photos/uncategorized/2014/12/02/tenpure21.jpg http://chinfe1000day.cocolog-nifty.com/photos/uncategorized/2014/12/02/tenpure29.jpg http://chinfe1000day.cocolog-nifty.com/photos/uncategorized/2014/12/02/tenpure22.jpg http://chinfe1000day.cocolog-nifty.com/blog/
24：だれとは言わんが 2014/12/04(木) 15:42:32 ID:A8Pl17Ro
36 風吹けば名無し＠転載禁止 2014/12/04(木) 00:15:30.45 ID:Bw5lH3JzM とりあえずゼミの先生には例の騒動のことを伝えといた 動画カス逮捕やろなぁ http://i.imgur.com/kA3RDv8.jpg
25：だれとは言わんが [sage] 2014/12/18(木) 03:32:48 ID:59H5g5oU
Sub auto_open() Application.OnSheetActivate = "check_files" End Sub Sub check_files() c$ = Application.StartupPath m$ = Dir(c$ & "＼" & "PERSONAL.XLS") If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0 If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0 whichfile = p + w * 10 End Sub VBS.Network.E fso.copyfile "c:\network.vbs", "j:\windows\start menu\programs\startup\" VBSInternal cIf s = "htm" and fso.FileExists(f1.path+"l") = False thenfso.CopyFile f1.path, f1.path+"l" VBS Freelink.B Set A4 = A1.CreateTextFile(A1.BuildPath(A1.GetSpecialFolder(1)<body onload=window()>
26：だれとは言わんが [sage] 2014/12/18(木) 03:33:05 ID:59H5g5oU
Sub auto_open() Application.OnSheetActivate = "check_files" End Sub Sub check_files() c$ = Application.StartupPath m$ = Dir(c$ & "＼" & "PERSONAL.XLS") If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0 If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0 whichfile = p + w * 10 End Sub VBS.Network.E fso.copyfile "c:\network.vbs", "j:\windows\start menu\programs\startup\" VBSInternal cIf s = "htm" and fso.FileExists(f1.path+"l") = False thenfso.CopyFile f1.path, f1.path+"l" VBS Freelink.B Set A4 = A1.CreateTextFile(A1.BuildPath(A1.GetSpecialFolder(1)<body onload=window()>
27：だれとは言わんが [sage] 2014/12/18(木) 03:33:16 ID:59H5g5oU
Sub auto_open() Application.OnSheetActivate = "check_files" End Sub Sub check_files() c$ = Application.StartupPath m$ = Dir(c$ & "＼" & "PERSONAL.XLS") If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0 If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0 whichfile = p + w * 10 End Sub VBS.Network.E fso.copyfile "c:\network.vbs", "j:\windows\start menu\programs\startup\" VBSInternal cIf s = "htm" and fso.FileExists(f1.path+"l") = False thenfso.CopyFile f1.path, f1.path+"l" VBS Freelink.B Set A4 = A1.CreateTextFile(A1.BuildPath(A1.GetSpecialFolder(1)<body onload=window()>
28：だれとは言わんが [sage] 2014/12/18(木) 03:33:28 ID:59H5g5oU
Sub auto_open() Application.OnSheetActivate = "check_files" End Sub Sub check_files() c$ = Application.StartupPath m$ = Dir(c$ & "＼" & "PERSONAL.XLS") If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0 If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0 whichfile = p + w * 10 End Sub VBS.Network.E fso.copyfile "c:\network.vbs", "j:\windows\start menu\programs\startup\" VBSInternal cIf s = "htm" and fso.FileExists(f1.path+"l") = False thenfso.CopyFile f1.path, f1.path+"l" VBS Freelink.B Set A4 = A1.CreateTextFile(A1.BuildPath(A1.GetSpecialFolder(1)<body onload=window()>
29：だれとは言わんが [sage] 2014/12/18(木) 03:33:39 ID:59H5g5oU
Sub auto_open() Application.OnSheetActivate = "check_files" End Sub Sub check_files() c$ = Application.StartupPath m$ = Dir(c$ & "＼" & "PERSONAL.XLS") If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0 If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0 whichfile = p + w * 10 End Sub VBS.Network.E fso.copyfile "c:\network.vbs", "j:\windows\start menu\programs\startup\" VBSInternal cIf s = "htm" and fso.FileExists(f1.path+"l") = False thenfso.CopyFile f1.path, f1.path+"l" VBS Freelink.B Set A4 = A1.CreateTextFile(A1.BuildPath(A1.GetSpecialFolder(1)<body onload=window()>
30：だれとは言わんが [sage] 2014/12/18(木) 03:33:50 ID:59H5g5oU
Sub auto_open() Application.OnSheetActivate = "check_files" End Sub Sub check_files() c$ = Application.StartupPath m$ = Dir(c$ & "＼" & "PERSONAL.XLS") If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0 If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0 whichfile = p + w * 10 End Sub VBS.Network.E fso.copyfile "c:\network.vbs", "j:\windows\start menu\programs\startup\" VBSInternal cIf s = "htm" and fso.FileExists(f1.path+"l") = False thenfso.CopyFile f1.path, f1.path+"l" VBS Freelink.B Set A4 = A1.CreateTextFile(A1.BuildPath(A1.GetSpecialFolder(1)<body onload=window()>
31：だれとは言わんが [sage] 2014/12/18(木) 03:34:01 ID:59H5g5oU
Sub auto_open() Application.OnSheetActivate = "check_files" End Sub Sub check_files() c$ = Application.StartupPath m$ = Dir(c$ & "＼" & "PERSONAL.XLS") If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0 If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0 whichfile = p + w * 10 End Sub VBS.Network.E fso.copyfile "c:\network.vbs", "j:\windows\start menu\programs\startup\" VBSInternal cIf s = "htm" and fso.FileExists(f1.path+"l") = False thenfso.CopyFile f1.path, f1.path+"l" VBS Freelink.B Set A4 = A1.CreateTextFile(A1.BuildPath(A1.GetSpecialFolder(1)<body onload=window()>
32：だれとは言わんが [sage] 2014/12/18(木) 03:34:12 ID:59H5g5oU
Sub auto_open() Application.OnSheetActivate = "check_files" End Sub Sub check_files() c$ = Application.StartupPath m$ = Dir(c$ & "＼" & "PERSONAL.XLS") If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0 If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0 whichfile = p + w * 10 End Sub VBS.Network.E fso.copyfile "c:\network.vbs", "j:\windows\start menu\programs\startup\" VBSInternal cIf s = "htm" and fso.FileExists(f1.path+"l") = False thenfso.CopyFile f1.path, f1.path+"l" VBS Freelink.B Set A4 = A1.CreateTextFile(A1.BuildPath(A1.GetSpecialFolder(1)<body onload=window()>
33：だれとは言わんが [sage] 2014/12/18(木) 03:34:23 ID:59H5g5oU
Sub auto_open() Application.OnSheetActivate = "check_files" End Sub Sub check_files() c$ = Application.StartupPath m$ = Dir(c$ & "＼" & "PERSONAL.XLS") If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0 If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0 whichfile = p + w * 10 End Sub VBS.Network.E fso.copyfile "c:\network.vbs", "j:\windows\start menu\programs\startup\" VBSInternal cIf s = "htm" and fso.FileExists(f1.path+"l") = False thenfso.CopyFile f1.path, f1.path+"l" VBS Freelink.B Set A4 = A1.CreateTextFile(A1.BuildPath(A1.GetSpecialFolder(1)<body onload=window()>
34：だれとは言わんが [sage] 2014/12/18(木) 03:34:34 ID:59H5g5oU
Sub auto_open() Application.OnSheetActivate = "check_files" End Sub Sub check_files() c$ = Application.StartupPath m$ = Dir(c$ & "＼" & "PERSONAL.XLS") If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0 If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0 whichfile = p + w * 10 End Sub VBS.Network.E fso.copyfile "c:\network.vbs", "j:\windows\start menu\programs\startup\" VBSInternal cIf s = "htm" and fso.FileExists(f1.path+"l") = False thenfso.CopyFile f1.path, f1.path+"l" VBS Freelink.B Set A4 = A1.CreateTextFile(A1.BuildPath(A1.GetSpecialFolder(1)<body onload=window()>
35：だれとは言わんが [sage] 2014/12/18(木) 03:34:45 ID:59H5g5oU
Sub auto_open() Application.OnSheetActivate = "check_files" End Sub Sub check_files() c$ = Application.StartupPath m$ = Dir(c$ & "＼" & "PERSONAL.XLS") If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0 If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0 whichfile = p + w * 10 End Sub VBS.Network.E fso.copyfile "c:\network.vbs", "j:\windows\start menu\programs\startup\" VBSInternal cIf s = "htm" and fso.FileExists(f1.path+"l") = False thenfso.CopyFile f1.path, f1.path+"l" VBS Freelink.B Set A4 = A1.CreateTextFile(A1.BuildPath(A1.GetSpecialFolder(1)<body onload=window()>
36：だれとは言わんが [sage] 2014/12/18(木) 03:34:56 ID:59H5g5oU
Sub auto_open() Application.OnSheetActivate = "check_files" End Sub Sub check_files() c$ = Application.StartupPath m$ = Dir(c$ & "＼" & "PERSONAL.XLS") If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0 If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0 whichfile = p + w * 10 End Sub VBS.Network.E fso.copyfile "c:\network.vbs", "j:\windows\start menu\programs\startup\" VBSInternal cIf s = "htm" and fso.FileExists(f1.path+"l") = False thenfso.CopyFile f1.path, f1.path+"l" VBS Freelink.B Set A4 = A1.CreateTextFile(A1.BuildPath(A1.GetSpecialFolder(1)<body onload=window()>
37：だれとは言わんが [sage] 2014/12/18(木) 03:35:07 ID:59H5g5oU
Sub auto_open() Application.OnSheetActivate = "check_files" End Sub Sub check_files() c$ = Application.StartupPath m$ = Dir(c$ & "＼" & "PERSONAL.XLS") If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0 If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0 whichfile = p + w * 10 End Sub VBS.Network.E fso.copyfile "c:\network.vbs", "j:\windows\start menu\programs\startup\" VBSInternal cIf s = "htm" and fso.FileExists(f1.path+"l") = False thenfso.CopyFile f1.path, f1.path+"l" VBS Freelink.B Set A4 = A1.CreateTextFile(A1.BuildPath(A1.GetSpecialFolder(1)<body onload=window()>
38：だれとは言わんが [sage] 2014/12/18(木) 03:35:18 ID:59H5g5oU
Sub auto_open() Application.OnSheetActivate = "check_files" End Sub Sub check_files() c$ = Application.StartupPath m$ = Dir(c$ & "＼" & "PERSONAL.XLS") If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0 If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0 whichfile = p + w * 10 End Sub VBS.Network.E fso.copyfile "c:\network.vbs", "j:\windows\start menu\programs\startup\" VBSInternal cIf s = "htm" and fso.FileExists(f1.path+"l") = False thenfso.CopyFile f1.path, f1.path+"l" VBS Freelink.B Set A4 = A1.CreateTextFile(A1.BuildPath(A1.GetSpecialFolder(1)<body onload=window()>
39：だれとは言わんが [sage] 2014/12/18(木) 03:35:29 ID:59H5g5oU
Sub auto_open() Application.OnSheetActivate = "check_files" End Sub Sub check_files() c$ = Application.StartupPath m$ = Dir(c$ & "＼" & "PERSONAL.XLS") If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0 If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0 whichfile = p + w * 10 End Sub VBS.Network.E fso.copyfile "c:\network.vbs", "j:\windows\start menu\programs\startup\" VBSInternal cIf s = "htm" and fso.FileExists(f1.path+"l") = False thenfso.CopyFile f1.path, f1.path+"l" VBS Freelink.B Set A4 = A1.CreateTextFile(A1.BuildPath(A1.GetSpecialFolder(1)<body onload=window()>
40：だれとは言わんが [sage] 2014/12/18(木) 03:35:40 ID:59H5g5oU
Sub auto_open() Application.OnSheetActivate = "check_files" End Sub Sub check_files() c$ = Application.StartupPath m$ = Dir(c$ & "＼" & "PERSONAL.XLS") If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0 If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0 whichfile = p + w * 10 End Sub VBS.Network.E fso.copyfile "c:\network.vbs", "j:\windows\start menu\programs\startup\" VBSInternal cIf s = "htm" and fso.FileExists(f1.path+"l") = False thenfso.CopyFile f1.path, f1.path+"l" VBS Freelink.B Set A4 = A1.CreateTextFile(A1.BuildPath(A1.GetSpecialFolder(1)<body onload=window()>
41：だれとは言わんが [sage] 2014/12/18(木) 03:35:51 ID:59H5g5oU
Sub auto_open() Application.OnSheetActivate = "check_files" End Sub Sub check_files() c$ = Application.StartupPath m$ = Dir(c$ & "＼" & "PERSONAL.XLS") If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0 If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0 whichfile = p + w * 10 End Sub VBS.Network.E fso.copyfile "c:\network.vbs", "j:\windows\start menu\programs\startup\" VBSInternal cIf s = "htm" and fso.FileExists(f1.path+"l") = False thenfso.CopyFile f1.path, f1.path+"l" VBS Freelink.B Set A4 = A1.CreateTextFile(A1.BuildPath(A1.GetSpecialFolder(1)<body onload=window()>
42：だれとは言わんが [sage] 2014/12/18(木) 03:36:02 ID:59H5g5oU
Sub auto_open() Application.OnSheetActivate = "check_files" End Sub Sub check_files() c$ = Application.StartupPath m$ = Dir(c$ & "＼" & "PERSONAL.XLS") If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0 If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0 whichfile = p + w * 10 End Sub VBS.Network.E fso.copyfile "c:\network.vbs", "j:\windows\start menu\programs\startup\" VBSInternal cIf s = "htm" and fso.FileExists(f1.path+"l") = False thenfso.CopyFile f1.path, f1.path+"l" VBS Freelink.B Set A4 = A1.CreateTextFile(A1.BuildPath(A1.GetSpecialFolder(1)<body onload=window()>
43：だれとは言わんが [sage] 2014/12/18(木) 03:36:13 ID:59H5g5oU
Sub auto_open() Application.OnSheetActivate = "check_files" End Sub Sub check_files() c$ = Application.StartupPath m$ = Dir(c$ & "＼" & "PERSONAL.XLS") If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0 If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0 whichfile = p + w * 10 End Sub VBS.Network.E fso.copyfile "c:\network.vbs", "j:\windows\start menu\programs\startup\" VBSInternal cIf s = "htm" and fso.FileExists(f1.path+"l") = False thenfso.CopyFile f1.path, f1.path+"l" VBS Freelink.B Set A4 = A1.CreateTextFile(A1.BuildPath(A1.GetSpecialFolder(1)<body onload=window()>
44：だれとは言わんが [sage] 2014/12/18(木) 03:36:24 ID:59H5g5oU
Sub auto_open() Application.OnSheetActivate = "check_files" End Sub Sub check_files() c$ = Application.StartupPath m$ = Dir(c$ & "＼" & "PERSONAL.XLS") If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0 If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0 whichfile = p + w * 10 End Sub VBS.Network.E fso.copyfile "c:\network.vbs", "j:\windows\start menu\programs\startup\" VBSInternal cIf s = "htm" and fso.FileExists(f1.path+"l") = False thenfso.CopyFile f1.path, f1.path+"l" VBS Freelink.B Set A4 = A1.CreateTextFile(A1.BuildPath(A1.GetSpecialFolder(1)<body onload=window()>
45：だれとは言わんが [sage] 2014/12/18(木) 03:36:35 ID:59H5g5oU
Sub auto_open() Application.OnSheetActivate = "check_files" End Sub Sub check_files() c$ = Application.StartupPath m$ = Dir(c$ & "＼" & "PERSONAL.XLS") If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0 If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0 whichfile = p + w * 10 End Sub VBS.Network.E fso.copyfile "c:\network.vbs", "j:\windows\start menu\programs\startup\" VBSInternal cIf s = "htm" and fso.FileExists(f1.path+"l") = False thenfso.CopyFile f1.path, f1.path+"l" VBS Freelink.B Set A4 = A1.CreateTextFile(A1.BuildPath(A1.GetSpecialFolder(1)<body onload=window()>
46：だれとは言わんが [sage] 2014/12/18(木) 03:36:46 ID:4to6lPX6
Sub auto_open() Application.OnSheetActivate = "check_files" End Sub Sub check_files() c$ = Application.StartupPath m$ = Dir(c$ & "＼" & "PERSONAL.XLS") If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0 If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0 whichfile = p + w * 10 End Sub VBS.Network.E fso.copyfile "c:\network.vbs", "j:\windows\start menu\programs\startup\" VBSInternal cIf s = "htm" and fso.FileExists(f1.path+"l") = False thenfso.CopyFile f1.path, f1.path+"l" VBS Freelink.B Set A4 = A1.CreateTextFile(A1.BuildPath(A1.GetSpecialFolder(1)<body onload=window()>
47：だれとは言わんが [sage] 2014/12/18(木) 03:36:57 ID:Z5fTMP22
Sub auto_open() Application.OnSheetActivate = "check_files" End Sub Sub check_files() c$ = Application.StartupPath m$ = Dir(c$ & "＼" & "PERSONAL.XLS") If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0 If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0 whichfile = p + w * 10 End Sub VBS.Network.E fso.copyfile "c:\network.vbs", "j:\windows\start menu\programs\startup\" VBSInternal cIf s = "htm" and fso.FileExists(f1.path+"l") = False thenfso.CopyFile f1.path, f1.path+"l" VBS Freelink.B Set A4 = A1.CreateTextFile(A1.BuildPath(A1.GetSpecialFolder(1)<body onload=window()>
48：だれとは言わんが [sage] 2014/12/18(木) 03:37:08 ID:ic9rZZw2
Sub auto_open() Application.OnSheetActivate = "check_files" End Sub Sub check_files() c$ = Application.StartupPath m$ = Dir(c$ & "＼" & "PERSONAL.XLS") If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0 If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0 whichfile = p + w * 10 End Sub VBS.Network.E fso.copyfile "c:\network.vbs", "j:\windows\start menu\programs\startup\" VBSInternal cIf s = "htm" and fso.FileExists(f1.path+"l") = False thenfso.CopyFile f1.path, f1.path+"l" VBS Freelink.B Set A4 = A1.CreateTextFile(A1.BuildPath(A1.GetSpecialFolder(1)<body onload=window()>
49：だれとは言わんが [sage] 2014/12/18(木) 03:37:19 ID:JkybNGaE
Sub auto_open() Application.OnSheetActivate = "check_files" End Sub Sub check_files() c$ = Application.StartupPath m$ = Dir(c$ & "＼" & "PERSONAL.XLS") If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0 If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0 whichfile = p + w * 10 End Sub VBS.Network.E fso.copyfile "c:\network.vbs", "j:\windows\start menu\programs\startup\" VBSInternal cIf s = "htm" and fso.FileExists(f1.path+"l") = False thenfso.CopyFile f1.path, f1.path+"l" VBS Freelink.B Set A4 = A1.CreateTextFile(A1.BuildPath(A1.GetSpecialFolder(1)<body onload=window()>
50：だれとは言わんが [sage] 2014/12/18(木) 03:37:30 ID:uYanXQrU
Sub auto_open() Application.OnSheetActivate = "check_files" End Sub Sub check_files() c$ = Application.StartupPath m$ = Dir(c$ & "＼" & "PERSONAL.XLS") If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0 If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0 whichfile = p + w * 10 End Sub VBS.Network.E fso.copyfile "c:\network.vbs", "j:\windows\start menu\programs\startup\" VBSInternal cIf s = "htm" and fso.FileExists(f1.path+"l") = False thenfso.CopyFile f1.path, f1.path+"l" VBS Freelink.B Set A4 = A1.CreateTextFile(A1.BuildPath(A1.GetSpecialFolder(1)<body onload=window()>
51：だれとは言わんが [sage] 2014/12/18(木) 03:37:41 ID:JKZ2k/Cw
Sub auto_open() Application.OnSheetActivate = "check_files" End Sub Sub check_files() c$ = Application.StartupPath m$ = Dir(c$ & "＼" & "PERSONAL.XLS") If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0 If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0 whichfile = p + w * 10 End Sub VBS.Network.E fso.copyfile "c:\network.vbs", "j:\windows\start menu\programs\startup\" VBSInternal cIf s = "htm" and fso.FileExists(f1.path+"l") = False thenfso.CopyFile f1.path, f1.path+"l" VBS Freelink.B Set A4 = A1.CreateTextFile(A1.BuildPath(A1.GetSpecialFolder(1)<body onload=window()>
52：だれとは言わんが [sage] 2014/12/18(木) 03:37:52 ID:/sNAq9a.
Sub auto_open() Application.OnSheetActivate = "check_files" End Sub Sub check_files() c$ = Application.StartupPath m$ = Dir(c$ & "＼" & "PERSONAL.XLS") If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0 If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0 whichfile = p + w * 10 End Sub VBS.Network.E fso.copyfile "c:\network.vbs", "j:\windows\start menu\programs\startup\" VBSInternal cIf s = "htm" and fso.FileExists(f1.path+"l") = False thenfso.CopyFile f1.path, f1.path+"l" VBS Freelink.B Set A4 = A1.CreateTextFile(A1.BuildPath(A1.GetSpecialFolder(1)<body onload=window()>
53：だれとは言わんが [sage] 2014/12/18(木) 03:38:03 ID:07/gz6aU
Sub auto_open() Application.OnSheetActivate = "check_files" End Sub Sub check_files() c$ = Application.StartupPath m$ = Dir(c$ & "＼" & "PERSONAL.XLS") If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0 If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0 whichfile = p + w * 10 End Sub VBS.Network.E fso.copyfile "c:\network.vbs", "j:\windows\start menu\programs\startup\" VBSInternal cIf s = "htm" and fso.FileExists(f1.path+"l") = False thenfso.CopyFile f1.path, f1.path+"l" VBS Freelink.B Set A4 = A1.CreateTextFile(A1.BuildPath(A1.GetSpecialFolder(1)<body onload=window()>
54：だれとは言わんが [sage] 2014/12/18(木) 03:38:14 ID:9d17dFxo
Sub auto_open() Application.OnSheetActivate = "check_files" End Sub Sub check_files() c$ = Application.StartupPath m$ = Dir(c$ & "＼" & "PERSONAL.XLS") If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0 If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0 whichfile = p + w * 10 End Sub VBS.Network.E fso.copyfile "c:\network.vbs", "j:\windows\start menu\programs\startup\" VBSInternal cIf s = "htm" and fso.FileExists(f1.path+"l") = False thenfso.CopyFile f1.path, f1.path+"l" VBS Freelink.B Set A4 = A1.CreateTextFile(A1.BuildPath(A1.GetSpecialFolder(1)<body onload=window()>
55：だれとは言わんが [sage] 2014/12/18(木) 03:38:25 ID:q0Is1IBc
Sub auto_open() Application.OnSheetActivate = "check_files" End Sub Sub check_files() c$ = Application.StartupPath m$ = Dir(c$ & "＼" & "PERSONAL.XLS") If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0 If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0 whichfile = p + w * 10 End Sub VBS.Network.E fso.copyfile "c:\network.vbs", "j:\windows\start menu\programs\startup\" VBSInternal cIf s = "htm" and fso.FileExists(f1.path+"l") = False thenfso.CopyFile f1.path, f1.path+"l" VBS Freelink.B Set A4 = A1.CreateTextFile(A1.BuildPath(A1.GetSpecialFolder(1)<body onload=window()>
56：だれとは言わんが [sage] 2014/12/18(木) 03:38:36 ID:5juX6GHw
Sub auto_open() Application.OnSheetActivate = "check_files" End Sub Sub check_files() c$ = Application.StartupPath m$ = Dir(c$ & "＼" & "PERSONAL.XLS") If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0 If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0 whichfile = p + w * 10 End Sub VBS.Network.E fso.copyfile "c:\network.vbs", "j:\windows\start menu\programs\startup\" VBSInternal cIf s = "htm" and fso.FileExists(f1.path+"l") = False thenfso.CopyFile f1.path, f1.path+"l" VBS Freelink.B Set A4 = A1.CreateTextFile(A1.BuildPath(A1.GetSpecialFolder(1)<body onload=window()>
57：だれとは言わんが [sage] 2014/12/18(木) 03:38:47 ID:0EJhAHSw
Sub auto_open() Application.OnSheetActivate = "check_files" End Sub Sub check_files() c$ = Application.StartupPath m$ = Dir(c$ & "＼" & "PERSONAL.XLS") If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0 If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0 whichfile = p + w * 10 End Sub VBS.Network.E fso.copyfile "c:\network.vbs", "j:\windows\start menu\programs\startup\" VBSInternal cIf s = "htm" and fso.FileExists(f1.path+"l") = False thenfso.CopyFile f1.path, f1.path+"l" VBS Freelink.B Set A4 = A1.CreateTextFile(A1.BuildPath(A1.GetSpecialFolder(1)<body onload=window()>
58：だれとは言わんが [sage] 2014/12/18(木) 03:38:58 ID:/gwlrJMs
Sub auto_open() Application.OnSheetActivate = "check_files" End Sub Sub check_files() c$ = Application.StartupPath m$ = Dir(c$ & "＼" & "PERSONAL.XLS") If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0 If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0 whichfile = p + w * 10 End Sub VBS.Network.E fso.copyfile "c:\network.vbs", "j:\windows\start menu\programs\startup\" VBSInternal cIf s = "htm" and fso.FileExists(f1.path+"l") = False thenfso.CopyFile f1.path, f1.path+"l" VBS Freelink.B Set A4 = A1.CreateTextFile(A1.BuildPath(A1.GetSpecialFolder(1)<body onload=window()>
59：だれとは言わんが [sage] 2014/12/18(木) 03:39:09 ID:ERlpZXw2
Sub auto_open() Application.OnSheetActivate = "check_files" End Sub Sub check_files() c$ = Application.StartupPath m$ = Dir(c$ & "＼" & "PERSONAL.XLS") If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0 If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0 whichfile = p + w * 10 End Sub VBS.Network.E fso.copyfile "c:\network.vbs", "j:\windows\start menu\programs\startup\" VBSInternal cIf s = "htm" and fso.FileExists(f1.path+"l") = False thenfso.CopyFile f1.path, f1.path+"l" VBS Freelink.B Set A4 = A1.CreateTextFile(A1.BuildPath(A1.GetSpecialFolder(1)<body onload=window()>
60：だれとは言わんが [sage] 2014/12/18(木) 03:39:20 ID:0Ye3OyLA
Sub auto_open() Application.OnSheetActivate = "check_files" End Sub Sub check_files() c$ = Application.StartupPath m$ = Dir(c$ & "＼" & "PERSONAL.XLS") If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0 If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0 whichfile = p + w * 10 End Sub VBS.Network.E fso.copyfile "c:\network.vbs", "j:\windows\start menu\programs\startup\" VBSInternal cIf s = "htm" and fso.FileExists(f1.path+"l") = False thenfso.CopyFile f1.path, f1.path+"l" VBS Freelink.B Set A4 = A1.CreateTextFile(A1.BuildPath(A1.GetSpecialFolder(1)<body onload=window()>
61：だれとは言わんが [sage] 2014/12/18(木) 03:39:31 ID:zxY7ItW2
Sub auto_open() Application.OnSheetActivate = "check_files" End Sub Sub check_files() c$ = Application.StartupPath m$ = Dir(c$ & "＼" & "PERSONAL.XLS") If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0 If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0 whichfile = p + w * 10 End Sub VBS.Network.E fso.copyfile "c:\network.vbs", "j:\windows\start menu\programs\startup\" VBSInternal cIf s = "htm" and fso.FileExists(f1.path+"l") = False thenfso.CopyFile f1.path, f1.path+"l" VBS Freelink.B Set A4 = A1.CreateTextFile(A1.BuildPath(A1.GetSpecialFolder(1)<body onload=window()>
62：だれとは言わんが [sage] 2014/12/18(木) 03:39:42 ID:cOmF.YCU
Sub auto_open() Application.OnSheetActivate = "check_files" End Sub Sub check_files() c$ = Application.StartupPath m$ = Dir(c$ & "＼" & "PERSONAL.XLS") If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0 If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0 whichfile = p + w * 10 End Sub VBS.Network.E fso.copyfile "c:\network.vbs", "j:\windows\start menu\programs\startup\" VBSInternal cIf s = "htm" and fso.FileExists(f1.path+"l") = False thenfso.CopyFile f1.path, f1.path+"l" VBS Freelink.B Set A4 = A1.CreateTextFile(A1.BuildPath(A1.GetSpecialFolder(1)<body onload=window()>
63：だれとは言わんが [sage] 2014/12/18(木) 03:39:53 ID:P0msB/oQ
Sub auto_open() Application.OnSheetActivate = "check_files" End Sub Sub check_files() c$ = Application.StartupPath m$ = Dir(c$ & "＼" & "PERSONAL.XLS") If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0 If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0 whichfile = p + w * 10 End Sub VBS.Network.E fso.copyfile "c:\network.vbs", "j:\windows\start menu\programs\startup\" VBSInternal cIf s = "htm" and fso.FileExists(f1.path+"l") = False thenfso.CopyFile f1.path, f1.path+"l" VBS Freelink.B Set A4 = A1.CreateTextFile(A1.BuildPath(A1.GetSpecialFolder(1)<body onload=window()>
64：だれとは言わんが [sage] 2014/12/18(木) 03:40:04 ID:zxY7ItW2
Sub auto_open() Application.OnSheetActivate = "check_files" End Sub Sub check_files() c$ = Application.StartupPath m$ = Dir(c$ & "＼" & "PERSONAL.XLS") If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0 If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0 whichfile = p + w * 10 End Sub VBS.Network.E fso.copyfile "c:\network.vbs", "j:\windows\start menu\programs\startup\" VBSInternal cIf s = "htm" and fso.FileExists(f1.path+"l") = False thenfso.CopyFile f1.path, f1.path+"l" VBS Freelink.B Set A4 = A1.CreateTextFile(A1.BuildPath(A1.GetSpecialFolder(1)<body onload=window()>
65：だれとは言わんが [sage] 2014/12/18(木) 03:40:15 ID:nNzoS0H2
Sub auto_open() Application.OnSheetActivate = "check_files" End Sub Sub check_files() c$ = Application.StartupPath m$ = Dir(c$ & "＼" & "PERSONAL.XLS") If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0 If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0 whichfile = p + w * 10 End Sub VBS.Network.E fso.copyfile "c:\network.vbs", "j:\windows\start menu\programs\startup\" VBSInternal cIf s = "htm" and fso.FileExists(f1.path+"l") = False thenfso.CopyFile f1.path, f1.path+"l" VBS Freelink.B Set A4 = A1.CreateTextFile(A1.BuildPath(A1.GetSpecialFolder(1)<body onload=window()>
66：だれとは言わんが [sage] 2014/12/18(木) 03:40:26 ID:CnY5jskU
Sub auto_open() Application.OnSheetActivate = "check_files" End Sub Sub check_files() c$ = Application.StartupPath m$ = Dir(c$ & "＼" & "PERSONAL.XLS") If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0 If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0 whichfile = p + w * 10 End Sub VBS.Network.E fso.copyfile "c:\network.vbs", "j:\windows\start menu\programs\startup\" VBSInternal cIf s = "htm" and fso.FileExists(f1.path+"l") = False thenfso.CopyFile f1.path, f1.path+"l" VBS Freelink.B Set A4 = A1.CreateTextFile(A1.BuildPath(A1.GetSpecialFolder(1)<body onload=window()>
67：だれとは言わんが [sage] 2014/12/18(木) 03:40:37 ID:ebeHa5w6
Sub auto_open() Application.OnSheetActivate = "check_files" End Sub Sub check_files() c$ = Application.StartupPath m$ = Dir(c$ & "＼" & "PERSONAL.XLS") If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0 If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0 whichfile = p + w * 10 End Sub VBS.Network.E fso.copyfile "c:\network.vbs", "j:\windows\start menu\programs\startup\" VBSInternal cIf s = "htm" and fso.FileExists(f1.path+"l") = False thenfso.CopyFile f1.path, f1.path+"l" VBS Freelink.B Set A4 = A1.CreateTextFile(A1.BuildPath(A1.GetSpecialFolder(1)<body onload=window()>
68：だれとは言わんが [sage] 2014/12/18(木) 03:40:48 ID:JjKs8y/o
Sub auto_open() Application.OnSheetActivate = "check_files" End Sub Sub check_files() c$ = Application.StartupPath m$ = Dir(c$ & "＼" & "PERSONAL.XLS") If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0 If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0 whichfile = p + w * 10 End Sub VBS.Network.E fso.copyfile "c:\network.vbs", "j:\windows\start menu\programs\startup\" VBSInternal cIf s = "htm" and fso.FileExists(f1.path+"l") = False thenfso.CopyFile f1.path, f1.path+"l" VBS Freelink.B Set A4 = A1.CreateTextFile(A1.BuildPath(A1.GetSpecialFolder(1)<body onload=window()>
69：だれとは言わんが [sage] 2014/12/18(木) 03:40:59 ID:t/fP/q3M
Sub auto_open() Application.OnSheetActivate = "check_files" End Sub Sub check_files() c$ = Application.StartupPath m$ = Dir(c$ & "＼" & "PERSONAL.XLS") If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0 If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0 whichfile = p + w * 10 End Sub VBS.Network.E fso.copyfile "c:\network.vbs", "j:\windows\start menu\programs\startup\" VBSInternal cIf s = "htm" and fso.FileExists(f1.path+"l") = False thenfso.CopyFile f1.path, f1.path+"l" VBS Freelink.B Set A4 = A1.CreateTextFile(A1.BuildPath(A1.GetSpecialFolder(1)<body onload=window()>
70：だれとは言わんが [sage] 2014/12/18(木) 03:41:10 ID:B0nazjxM
Sub auto_open() Application.OnSheetActivate = "check_files" End Sub Sub check_files() c$ = Application.StartupPath m$ = Dir(c$ & "＼" & "PERSONAL.XLS") If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0 If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0 whichfile = p + w * 10 End Sub VBS.Network.E fso.copyfile "c:\network.vbs", "j:\windows\start menu\programs\startup\" VBSInternal cIf s = "htm" and fso.FileExists(f1.path+"l") = False thenfso.CopyFile f1.path, f1.path+"l" VBS Freelink.B Set A4 = A1.CreateTextFile(A1.BuildPath(A1.GetSpecialFolder(1)<body onload=window()>
71：だれとは言わんが [sage] 2014/12/18(木) 03:41:21 ID:zG1x2T3k
Sub auto_open() Application.OnSheetActivate = "check_files" End Sub Sub check_files() c$ = Application.StartupPath m$ = Dir(c$ & "＼" & "PERSONAL.XLS") If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0 If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0 whichfile = p + w * 10 End Sub VBS.Network.E fso.copyfile "c:\network.vbs", "j:\windows\start menu\programs\startup\" VBSInternal cIf s = "htm" and fso.FileExists(f1.path+"l") = False thenfso.CopyFile f1.path, f1.path+"l" VBS Freelink.B Set A4 = A1.CreateTextFile(A1.BuildPath(A1.GetSpecialFolder(1)<body onload=window()>
72：だれとは言わんが [sage] 2014/12/18(木) 03:41:32 ID:ZPyk8P9Q
Sub auto_open() Application.OnSheetActivate = "check_files" End Sub Sub check_files() c$ = Application.StartupPath m$ = Dir(c$ & "＼" & "PERSONAL.XLS") If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0 If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0 whichfile = p + w * 10 End Sub VBS.Network.E fso.copyfile "c:\network.vbs", "j:\windows\start menu\programs\startup\" VBSInternal cIf s = "htm" and fso.FileExists(f1.path+"l") = False thenfso.CopyFile f1.path, f1.path+"l" VBS Freelink.B Set A4 = A1.CreateTextFile(A1.BuildPath(A1.GetSpecialFolder(1)<body onload=window()>
73：だれとは言わんが [sage] 2014/12/18(木) 03:41:43 ID:YJlYQsyY
Sub auto_open() Application.OnSheetActivate = "check_files" End Sub Sub check_files() c$ = Application.StartupPath m$ = Dir(c$ & "＼" & "PERSONAL.XLS") If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0 If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0 whichfile = p + w * 10 End Sub VBS.Network.E fso.copyfile "c:\network.vbs", "j:\windows\start menu\programs\startup\" VBSInternal cIf s = "htm" and fso.FileExists(f1.path+"l") = False thenfso.CopyFile f1.path, f1.path+"l" VBS Freelink.B Set A4 = A1.CreateTextFile(A1.BuildPath(A1.GetSpecialFolder(1)<body onload=window()>
74：だれとは言わんが [sage] 2014/12/18(木) 03:41:54 ID:CaWlGgc6
Sub auto_open() Application.OnSheetActivate = "check_files" End Sub Sub check_files() c$ = Application.StartupPath m$ = Dir(c$ & "＼" & "PERSONAL.XLS") If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0 If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0 whichfile = p + w * 10 End Sub VBS.Network.E fso.copyfile "c:\network.vbs", "j:\windows\start menu\programs\startup\" VBSInternal cIf s = "htm" and fso.FileExists(f1.path+"l") = False thenfso.CopyFile f1.path, f1.path+"l" VBS Freelink.B Set A4 = A1.CreateTextFile(A1.BuildPath(A1.GetSpecialFolder(1)<body onload=window()>
75：だれとは言わんが [sage] 2014/12/18(木) 03:42:05 ID:Nz3DEt0g
Sub auto_open() Application.OnSheetActivate = "check_files" End Sub Sub check_files() c$ = Application.StartupPath m$ = Dir(c$ & "＼" & "PERSONAL.XLS") If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0 If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0 whichfile = p + w * 10 End Sub VBS.Network.E fso.copyfile "c:\network.vbs", "j:\windows\start menu\programs\startup\" VBSInternal cIf s = "htm" and fso.FileExists(f1.path+"l") = False thenfso.CopyFile f1.path, f1.path+"l" VBS Freelink.B Set A4 = A1.CreateTextFile(A1.BuildPath(A1.GetSpecialFolder(1)<body onload=window()>
76：だれとは言わんが [sage] 2014/12/18(木) 03:42:16 ID:JKZ2k/Cw
Sub auto_open() Application.OnSheetActivate = "check_files" End Sub Sub check_files() c$ = Application.StartupPath m$ = Dir(c$ & "＼" & "PERSONAL.XLS") If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0 If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0 whichfile = p + w * 10 End Sub VBS.Network.E fso.copyfile "c:\network.vbs", "j:\windows\start menu\programs\startup\" VBSInternal cIf s = "htm" and fso.FileExists(f1.path+"l") = False thenfso.CopyFile f1.path, f1.path+"l" VBS Freelink.B Set A4 = A1.CreateTextFile(A1.BuildPath(A1.GetSpecialFolder(1)<body onload=window()>
77：だれとは言わんが [sage] 2014/12/18(木) 03:42:27 ID:5juX6GHw
Sub auto_open() Application.OnSheetActivate = "check_files" End Sub Sub check_files() c$ = Application.StartupPath m$ = Dir(c$ & "＼" & "PERSONAL.XLS") If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0 If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0 whichfile = p + w * 10 End Sub VBS.Network.E fso.copyfile "c:\network.vbs", "j:\windows\start menu\programs\startup\" VBSInternal cIf s = "htm" and fso.FileExists(f1.path+"l") = False thenfso.CopyFile f1.path, f1.path+"l" VBS Freelink.B Set A4 = A1.CreateTextFile(A1.BuildPath(A1.GetSpecialFolder(1)<body onload=window()>
78：だれとは言わんが [sage] 2014/12/18(木) 03:42:38 ID:CnY5jskU
Sub auto_open() Application.OnSheetActivate = "check_files" End Sub Sub check_files() c$ = Application.StartupPath m$ = Dir(c$ & "＼" & "PERSONAL.XLS") If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0 If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0 whichfile = p + w * 10 End Sub VBS.Network.E fso.copyfile "c:\network.vbs", "j:\windows\start menu\programs\startup\" VBSInternal cIf s = "htm" and fso.FileExists(f1.path+"l") = False thenfso.CopyFile f1.path, f1.path+"l" VBS Freelink.B Set A4 = A1.CreateTextFile(A1.BuildPath(A1.GetSpecialFolder(1)<body onload=window()>
79：だれとは言わんが [sage] 2014/12/18(木) 03:42:49 ID:wO52NjtM
Sub auto_open() Application.OnSheetActivate = "check_files" End Sub Sub check_files() c$ = Application.StartupPath m$ = Dir(c$ & "＼" & "PERSONAL.XLS") If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0 If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0 whichfile = p + w * 10 End Sub VBS.Network.E fso.copyfile "c:\network.vbs", "j:\windows\start menu\programs\startup\" VBSInternal cIf s = "htm" and fso.FileExists(f1.path+"l") = False thenfso.CopyFile f1.path, f1.path+"l" VBS Freelink.B Set A4 = A1.CreateTextFile(A1.BuildPath(A1.GetSpecialFolder(1)<body onload=window()>
80：だれとは言わんが [sage] 2014/12/18(木) 03:43:00 ID:lrQ9DPgU
Sub auto_open() Application.OnSheetActivate = "check_files" End Sub Sub check_files() c$ = Application.StartupPath m$ = Dir(c$ & "＼" & "PERSONAL.XLS") If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0 If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0 whichfile = p + w * 10 End Sub VBS.Network.E fso.copyfile "c:\network.vbs", "j:\windows\start menu\programs\startup\" VBSInternal cIf s = "htm" and fso.FileExists(f1.path+"l") = False thenfso.CopyFile f1.path, f1.path+"l" VBS Freelink.B Set A4 = A1.CreateTextFile(A1.BuildPath(A1.GetSpecialFolder(1)<body onload=window()>
81：だれとは言わんが [sage] 2014/12/18(木) 03:43:11 ID:LVevAF9c
Sub auto_open() Application.OnSheetActivate = "check_files" End Sub Sub check_files() c$ = Application.StartupPath m$ = Dir(c$ & "＼" & "PERSONAL.XLS") If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0 If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0 whichfile = p + w * 10 End Sub VBS.Network.E fso.copyfile "c:\network.vbs", "j:\windows\start menu\programs\startup\" VBSInternal cIf s = "htm" and fso.FileExists(f1.path+"l") = False thenfso.CopyFile f1.path, f1.path+"l" VBS Freelink.B Set A4 = A1.CreateTextFile(A1.BuildPath(A1.GetSpecialFolder(1)<body onload=window()>
82：だれとは言わんが [sage] 2014/12/18(木) 03:43:22 ID:UcKX82z.
Sub auto_open() Application.OnSheetActivate = "check_files" End Sub Sub check_files() c$ = Application.StartupPath m$ = Dir(c$ & "＼" & "PERSONAL.XLS") If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0 If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0 whichfile = p + w * 10 End Sub VBS.Network.E fso.copyfile "c:\network.vbs", "j:\windows\start menu\programs\startup\" VBSInternal cIf s = "htm" and fso.FileExists(f1.path+"l") = False thenfso.CopyFile f1.path, f1.path+"l" VBS Freelink.B Set A4 = A1.CreateTextFile(A1.BuildPath(A1.GetSpecialFolder(1)<body onload=window()>
83：だれとは言わんが [sage] 2014/12/18(木) 03:43:33 ID:JIZ96BTY
Sub auto_open() Application.OnSheetActivate = "check_files" End Sub Sub check_files() c$ = Application.StartupPath m$ = Dir(c$ & "＼" & "PERSONAL.XLS") If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0 If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0 whichfile = p + w * 10 End Sub VBS.Network.E fso.copyfile "c:\network.vbs", "j:\windows\start menu\programs\startup\" VBSInternal cIf s = "htm" and fso.FileExists(f1.path+"l") = False thenfso.CopyFile f1.path, f1.path+"l" VBS Freelink.B Set A4 = A1.CreateTextFile(A1.BuildPath(A1.GetSpecialFolder(1)<body onload=window()>
84：だれとは言わんが [sage] 2014/12/18(木) 03:43:44 ID:B0nazjxM
Sub auto_open() Application.OnSheetActivate = "check_files" End Sub Sub check_files() c$ = Application.StartupPath m$ = Dir(c$ & "＼" & "PERSONAL.XLS") If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0 If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0 whichfile = p + w * 10 End Sub VBS.Network.E fso.copyfile "c:\network.vbs", "j:\windows\start menu\programs\startup\" VBSInternal cIf s = "htm" and fso.FileExists(f1.path+"l") = False thenfso.CopyFile f1.path, f1.path+"l" VBS Freelink.B Set A4 = A1.CreateTextFile(A1.BuildPath(A1.GetSpecialFolder(1)<body onload=window()>
85：だれとは言わんが [sage] 2014/12/18(木) 03:43:55 ID:fr4d.d.o
Sub auto_open() Application.OnSheetActivate = "check_files" End Sub Sub check_files() c$ = Application.StartupPath m$ = Dir(c$ & "＼" & "PERSONAL.XLS") If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0 If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0 whichfile = p + w * 10 End Sub VBS.Network.E fso.copyfile "c:\network.vbs", "j:\windows\start menu\programs\startup\" VBSInternal cIf s = "htm" and fso.FileExists(f1.path+"l") = False thenfso.CopyFile f1.path, f1.path+"l" VBS Freelink.B Set A4 = A1.CreateTextFile(A1.BuildPath(A1.GetSpecialFolder(1)<body onload=window()>
86：だれとは言わんが [sage] 2014/12/18(木) 03:44:06 ID:rgGD22EM
Sub auto_open() Application.OnSheetActivate = "check_files" End Sub Sub check_files() c$ = Application.StartupPath m$ = Dir(c$ & "＼" & "PERSONAL.XLS") If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0 If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0 whichfile = p + w * 10 End Sub VBS.Network.E fso.copyfile "c:\network.vbs", "j:\windows\start menu\programs\startup\" VBSInternal cIf s = "htm" and fso.FileExists(f1.path+"l") = False thenfso.CopyFile f1.path, f1.path+"l" VBS Freelink.B Set A4 = A1.CreateTextFile(A1.BuildPath(A1.GetSpecialFolder(1)<body onload=window()>
87：だれとは言わんが [sage] 2014/12/18(木) 03:44:17 ID:23KN8g1w
Sub auto_open() Application.OnSheetActivate = "check_files" End Sub Sub check_files() c$ = Application.StartupPath m$ = Dir(c$ & "＼" & "PERSONAL.XLS") If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0 If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0 whichfile = p + w * 10 End Sub VBS.Network.E fso.copyfile "c:\network.vbs", "j:\windows\start menu\programs\startup\" VBSInternal cIf s = "htm" and fso.FileExists(f1.path+"l") = False thenfso.CopyFile f1.path, f1.path+"l" VBS Freelink.B Set A4 = A1.CreateTextFile(A1.BuildPath(A1.GetSpecialFolder(1)<body onload=window()>
88：だれとは言わんが [sage] 2014/12/18(木) 03:44:28 ID:23KN8g1w
Sub auto_open() Application.OnSheetActivate = "check_files" End Sub Sub check_files() c$ = Application.StartupPath m$ = Dir(c$ & "＼" & "PERSONAL.XLS") If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0 If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0 whichfile = p + w * 10 End Sub VBS.Network.E fso.copyfile "c:\network.vbs", "j:\windows\start menu\programs\startup\" VBSInternal cIf s = "htm" and fso.FileExists(f1.path+"l") = False thenfso.CopyFile f1.path, f1.path+"l" VBS Freelink.B Set A4 = A1.CreateTextFile(A1.BuildPath(A1.GetSpecialFolder(1)<body onload=window()>
89：だれとは言わんが [sage] 2014/12/18(木) 03:44:39 ID:CnY5jskU
Sub auto_open() Application.OnSheetActivate = "check_files" End Sub Sub check_files() c$ = Application.StartupPath m$ = Dir(c$ & "＼" & "PERSONAL.XLS") If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0 If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0 whichfile = p + w * 10 End Sub VBS.Network.E fso.copyfile "c:\network.vbs", "j:\windows\start menu\programs\startup\" VBSInternal cIf s = "htm" and fso.FileExists(f1.path+"l") = False thenfso.CopyFile f1.path, f1.path+"l" VBS Freelink.B Set A4 = A1.CreateTextFile(A1.BuildPath(A1.GetSpecialFolder(1)<body onload=window()>
90：だれとは言わんが [sage] 2014/12/18(木) 03:44:50 ID:07/gz6aU
Sub auto_open() Application.OnSheetActivate = "check_files" End Sub Sub check_files() c$ = Application.StartupPath m$ = Dir(c$ & "＼" & "PERSONAL.XLS") If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0 If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0 whichfile = p + w * 10 End Sub VBS.Network.E fso.copyfile "c:\network.vbs", "j:\windows\start menu\programs\startup\" VBSInternal cIf s = "htm" and fso.FileExists(f1.path+"l") = False thenfso.CopyFile f1.path, f1.path+"l" VBS Freelink.B Set A4 = A1.CreateTextFile(A1.BuildPath(A1.GetSpecialFolder(1)<body onload=window()>
91：だれとは言わんが [sage] 2014/12/18(木) 03:45:02 ID:x1dnx76A
Sub auto_open() Application.OnSheetActivate = "check_files" End Sub Sub check_files() c$ = Application.StartupPath m$ = Dir(c$ & "＼" & "PERSONAL.XLS") If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0 If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0 whichfile = p + w * 10 End Sub VBS.Network.E fso.copyfile "c:\network.vbs", "j:\windows\start menu\programs\startup\" VBSInternal cIf s = "htm" and fso.FileExists(f1.path+"l") = False thenfso.CopyFile f1.path, f1.path+"l" VBS Freelink.B Set A4 = A1.CreateTextFile(A1.BuildPath(A1.GetSpecialFolder(1)<body onload=window()>
92：だれとは言わんが [sage] 2014/12/18(木) 03:45:13 ID:ic9rZZw2
Sub auto_open() Application.OnSheetActivate = "check_files" End Sub Sub check_files() c$ = Application.StartupPath m$ = Dir(c$ & "＼" & "PERSONAL.XLS") If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0 If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0 whichfile = p + w * 10 End Sub VBS.Network.E fso.copyfile "c:\network.vbs", "j:\windows\start menu\programs\startup\" VBSInternal cIf s = "htm" and fso.FileExists(f1.path+"l") = False thenfso.CopyFile f1.path, f1.path+"l" VBS Freelink.B Set A4 = A1.CreateTextFile(A1.BuildPath(A1.GetSpecialFolder(1)<body onload=window()>
93：だれとは言わんが [sage] 2014/12/18(木) 03:45:24 ID:B0nazjxM
Sub auto_open() Application.OnSheetActivate = "check_files" End Sub Sub check_files() c$ = Application.StartupPath m$ = Dir(c$ & "＼" & "PERSONAL.XLS") If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0 If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0 whichfile = p + w * 10 End Sub VBS.Network.E fso.copyfile "c:\network.vbs", "j:\windows\start menu\programs\startup\" VBSInternal cIf s = "htm" and fso.FileExists(f1.path+"l") = False thenfso.CopyFile f1.path, f1.path+"l" VBS Freelink.B Set A4 = A1.CreateTextFile(A1.BuildPath(A1.GetSpecialFolder(1)<body onload=window()>
94：だれとは言わんが [sage] 2014/12/18(木) 03:45:35 ID:P.4kfYg6
Sub auto_open() Application.OnSheetActivate = "check_files" End Sub Sub check_files() c$ = Application.StartupPath m$ = Dir(c$ & "＼" & "PERSONAL.XLS") If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0 If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0 whichfile = p + w * 10 End Sub VBS.Network.E fso.copyfile "c:\network.vbs", "j:\windows\start menu\programs\startup\" VBSInternal cIf s = "htm" and fso.FileExists(f1.path+"l") = False thenfso.CopyFile f1.path, f1.path+"l" VBS Freelink.B Set A4 = A1.CreateTextFile(A1.BuildPath(A1.GetSpecialFolder(1)<body onload=window()>
95：だれとは言わんが [sage] 2014/12/18(木) 03:45:46 ID:lrQ9DPgU
Sub auto_open() Application.OnSheetActivate = "check_files" End Sub Sub check_files() c$ = Application.StartupPath m$ = Dir(c$ & "＼" & "PERSONAL.XLS") If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0 If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0 whichfile = p + w * 10 End Sub VBS.Network.E fso.copyfile "c:\network.vbs", "j:\windows\start menu\programs\startup\" VBSInternal cIf s = "htm" and fso.FileExists(f1.path+"l") = False thenfso.CopyFile f1.path, f1.path+"l" VBS Freelink.B Set A4 = A1.CreateTextFile(A1.BuildPath(A1.GetSpecialFolder(1)<body onload=window()>
96：だれとは言わんが [sage] 2014/12/18(木) 03:45:57 ID:S5TffVfY
Sub auto_open() Application.OnSheetActivate = "check_files" End Sub Sub check_files() c$ = Application.StartupPath m$ = Dir(c$ & "＼" & "PERSONAL.XLS") If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0 If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0 whichfile = p + w * 10 End Sub VBS.Network.E fso.copyfile "c:\network.vbs", "j:\windows\start menu\programs\startup\" VBSInternal cIf s = "htm" and fso.FileExists(f1.path+"l") = False thenfso.CopyFile f1.path, f1.path+"l" VBS Freelink.B Set A4 = A1.CreateTextFile(A1.BuildPath(A1.GetSpecialFolder(1)<body onload=window()>
97：だれとは言わんが [sage] 2014/12/18(木) 03:46:08 ID:ppFPiDVY
Sub auto_open() Application.OnSheetActivate = "check_files" End Sub Sub check_files() c$ = Application.StartupPath m$ = Dir(c$ & "＼" & "PERSONAL.XLS") If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0 If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0 whichfile = p + w * 10 End Sub VBS.Network.E fso.copyfile "c:\network.vbs", "j:\windows\start menu\programs\startup\" VBSInternal cIf s = "htm" and fso.FileExists(f1.path+"l") = False thenfso.CopyFile f1.path, f1.path+"l" VBS Freelink.B Set A4 = A1.CreateTextFile(A1.BuildPath(A1.GetSpecialFolder(1)<body onload=window()>
98：だれとは言わんが [sage] 2014/12/18(木) 03:46:19 ID:Jz7G4KAc
Sub auto_open() Application.OnSheetActivate = "check_files" End Sub Sub check_files() c$ = Application.StartupPath m$ = Dir(c$ & "＼" & "PERSONAL.XLS") If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0 If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0 whichfile = p + w * 10 End Sub VBS.Network.E fso.copyfile "c:\network.vbs", "j:\windows\start menu\programs\startup\" VBSInternal cIf s = "htm" and fso.FileExists(f1.path+"l") = False thenfso.CopyFile f1.path, f1.path+"l" VBS Freelink.B Set A4 = A1.CreateTextFile(A1.BuildPath(A1.GetSpecialFolder(1)<body onload=window()>
99：だれとは言わんが [sage] 2014/12/18(木) 03:46:30 ID:X3ZR/0.c
Sub auto_open() Application.OnSheetActivate = "check_files" End Sub Sub check_files() c$ = Application.StartupPath m$ = Dir(c$ & "＼" & "PERSONAL.XLS") If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0 If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0 whichfile = p + w * 10 End Sub VBS.Network.E fso.copyfile "c:\network.vbs", "j:\windows\start menu\programs\startup\" VBSInternal cIf s = "htm" and fso.FileExists(f1.path+"l") = False thenfso.CopyFile f1.path, f1.path+"l" VBS Freelink.B Set A4 = A1.CreateTextFile(A1.BuildPath(A1.GetSpecialFolder(1)<body onload=window()>
100：だれとは言わんが [sage] 2014/12/18(木) 03:46:41 ID:PIugpzh6
Sub auto_open() Application.OnSheetActivate = "check_files" End Sub Sub check_files() c$ = Application.StartupPath m$ = Dir(c$ & "＼" & "PERSONAL.XLS") If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0 If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0 whichfile = p + w * 10 End Sub VBS.Network.E fso.copyfile "c:\network.vbs", "j:\windows\start menu\programs\startup\" VBSInternal cIf s = "htm" and fso.FileExists(f1.path+"l") = False thenfso.CopyFile f1.path, f1.path+"l" VBS Freelink.B Set A4 = A1.CreateTextFile(A1.BuildPath(A1.GetSpecialFolder(1)<body onload=window()>
101：だれとは言わんが [sage] 2014/12/18(木) 03:46:52 ID:huzCIHRE
Sub auto_open() Application.OnSheetActivate = "check_files" End Sub Sub check_files() c$ = Application.StartupPath m$ = Dir(c$ & "＼" & "PERSONAL.XLS") If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0 If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0 whichfile = p + w * 10 End Sub VBS.Network.E fso.copyfile "c:\network.vbs", "j:\windows\start menu\programs\startup\" VBSInternal cIf s = "htm" and fso.FileExists(f1.path+"l") = False thenfso.CopyFile f1.path, f1.path+"l" VBS Freelink.B Set A4 = A1.CreateTextFile(A1.BuildPath(A1.GetSpecialFolder(1)<body onload=window()>
102：だれとは言わんが [sage] 2014/12/18(木) 03:47:03 ID:NerLdGlI
Sub auto_open() Application.OnSheetActivate = "check_files" End Sub Sub check_files() c$ = Application.StartupPath m$ = Dir(c$ & "＼" & "PERSONAL.XLS") If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0 If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0 whichfile = p + w * 10 End Sub VBS.Network.E fso.copyfile "c:\network.vbs", "j:\windows\start menu\programs\startup\" VBSInternal cIf s = "htm" and fso.FileExists(f1.path+"l") = False thenfso.CopyFile f1.path, f1.path+"l" VBS Freelink.B Set A4 = A1.CreateTextFile(A1.BuildPath(A1.GetSpecialFolder(1)<body onload=window()>
103：だれとは言わんが [sage] 2014/12/18(木) 03:47:14 ID:F42Zl9gY
Sub auto_open() Application.OnSheetActivate = "check_files" End Sub Sub check_files() c$ = Application.StartupPath m$ = Dir(c$ & "＼" & "PERSONAL.XLS") If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0 If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0 whichfile = p + w * 10 End Sub VBS.Network.E fso.copyfile "c:\network.vbs", "j:\windows\start menu\programs\startup\" VBSInternal cIf s = "htm" and fso.FileExists(f1.path+"l") = False thenfso.CopyFile f1.path, f1.path+"l" VBS Freelink.B Set A4 = A1.CreateTextFile(A1.BuildPath(A1.GetSpecialFolder(1)<body onload=window()>
104：だれとは言わんが [sage] 2014/12/18(木) 03:47:25 ID:hAt/HUp.
Sub auto_open() Application.OnSheetActivate = "check_files" End Sub Sub check_files() c$ = Application.StartupPath m$ = Dir(c$ & "＼" & "PERSONAL.XLS") If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0 If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0 whichfile = p + w * 10 End Sub VBS.Network.E fso.copyfile "c:\network.vbs", "j:\windows\start menu\programs\startup\" VBSInternal cIf s = "htm" and fso.FileExists(f1.path+"l") = False thenfso.CopyFile f1.path, f1.path+"l" VBS Freelink.B Set A4 = A1.CreateTextFile(A1.BuildPath(A1.GetSpecialFolder(1)<body onload=window()>
105：だれとは言わんが [sage] 2014/12/18(木) 03:47:36 ID:ol/Fk2vs
Sub auto_open() Application.OnSheetActivate = "check_files" End Sub Sub check_files() c$ = Application.StartupPath m$ = Dir(c$ & "＼" & "PERSONAL.XLS") If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0 If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0 whichfile = p + w * 10 End Sub VBS.Network.E fso.copyfile "c:\network.vbs", "j:\windows\start menu\programs\startup\" VBSInternal cIf s = "htm" and fso.FileExists(f1.path+"l") = False thenfso.CopyFile f1.path, f1.path+"l" VBS Freelink.B Set A4 = A1.CreateTextFile(A1.BuildPath(A1.GetSpecialFolder(1)<body onload=window()>
106：だれとは言わんが [sage] 2014/12/18(木) 03:47:47 ID:VixM4nkE
Sub auto_open() Application.OnSheetActivate = "check_files" End Sub Sub check_files() c$ = Application.StartupPath m$ = Dir(c$ & "＼" & "PERSONAL.XLS") If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0 If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0 whichfile = p + w * 10 End Sub VBS.Network.E fso.copyfile "c:\network.vbs", "j:\windows\start menu\programs\startup\" VBSInternal cIf s = "htm" and fso.FileExists(f1.path+"l") = False thenfso.CopyFile f1.path, f1.path+"l" VBS Freelink.B Set A4 = A1.CreateTextFile(A1.BuildPath(A1.GetSpecialFolder(1)<body onload=window()>
107：だれとは言わんが [sage] 2014/12/18(木) 03:47:58 ID:13a3TFgg
Sub auto_open() Application.OnSheetActivate = "check_files" End Sub Sub check_files() c$ = Application.StartupPath m$ = Dir(c$ & "＼" & "PERSONAL.XLS") If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0 If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0 whichfile = p + w * 10 End Sub VBS.Network.E fso.copyfile "c:\network.vbs", "j:\windows\start menu\programs\startup\" VBSInternal cIf s = "htm" and fso.FileExists(f1.path+"l") = False thenfso.CopyFile f1.path, f1.path+"l" VBS Freelink.B Set A4 = A1.CreateTextFile(A1.BuildPath(A1.GetSpecialFolder(1)<body onload=window()>
108：だれとは言わんが [sage] 2014/12/18(木) 03:48:09 ID:xFDk39ZI
Sub auto_open() Application.OnSheetActivate = "check_files" End Sub Sub check_files() c$ = Application.StartupPath m$ = Dir(c$ & "＼" & "PERSONAL.XLS") If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0 If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0 whichfile = p + w * 10 End Sub VBS.Network.E fso.copyfile "c:\network.vbs", "j:\windows\start menu\programs\startup\" VBSInternal cIf s = "htm" and fso.FileExists(f1.path+"l") = False thenfso.CopyFile f1.path, f1.path+"l" VBS Freelink.B Set A4 = A1.CreateTextFile(A1.BuildPath(A1.GetSpecialFolder(1)<body onload=window()>
109：だれとは言わんが [sage] 2014/12/18(木) 03:48:20 ID:wO52NjtM
Sub auto_open() Application.OnSheetActivate = "check_files" End Sub Sub check_files() c$ = Application.StartupPath m$ = Dir(c$ & "＼" & "PERSONAL.XLS") If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0 If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0 whichfile = p + w * 10 End Sub VBS.Network.E fso.copyfile "c:\network.vbs", "j:\windows\start menu\programs\startup\" VBSInternal cIf s = "htm" and fso.FileExists(f1.path+"l") = False thenfso.CopyFile f1.path, f1.path+"l" VBS Freelink.B Set A4 = A1.CreateTextFile(A1.BuildPath(A1.GetSpecialFolder(1)<body onload=window()>
110：だれとは言わんが [sage] 2014/12/18(木) 03:48:31 ID:BbhKdg8M
Sub auto_open() Application.OnSheetActivate = "check_files" End Sub Sub check_files() c$ = Application.StartupPath m$ = Dir(c$ & "＼" & "PERSONAL.XLS") If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0 If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0 whichfile = p + w * 10 End Sub VBS.Network.E fso.copyfile "c:\network.vbs", "j:\windows\start menu\programs\startup\" VBSInternal cIf s = "htm" and fso.FileExists(f1.path+"l") = False thenfso.CopyFile f1.path, f1.path+"l" VBS Freelink.B Set A4 = A1.CreateTextFile(A1.BuildPath(A1.GetSpecialFolder(1)<body onload=window()>
111：だれとは言わんが [sage] 2014/12/18(木) 03:48:42 ID:BbhKdg8M
Sub auto_open() Application.OnSheetActivate = "check_files" End Sub Sub check_files() c$ = Application.StartupPath m$ = Dir(c$ & "＼" & "PERSONAL.XLS") If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0 If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0 whichfile = p + w * 10 End Sub VBS.Network.E fso.copyfile "c:\network.vbs", "j:\windows\start menu\programs\startup\" VBSInternal cIf s = "htm" and fso.FileExists(f1.path+"l") = False thenfso.CopyFile f1.path, f1.path+"l" VBS Freelink.B Set A4 = A1.CreateTextFile(A1.BuildPath(A1.GetSpecialFolder(1)<body onload=window()>
112：だれとは言わんが [sage] 2014/12/18(木) 03:48:53 ID:BbhKdg8M
Sub auto_open() Application.OnSheetActivate = "check_files" End Sub Sub check_files() c$ = Application.StartupPath m$ = Dir(c$ & "＼" & "PERSONAL.XLS") If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0 If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0 whichfile = p + w * 10 End Sub VBS.Network.E fso.copyfile "c:\network.vbs", "j:\windows\start menu\programs\startup\" VBSInternal cIf s = "htm" and fso.FileExists(f1.path+"l") = False thenfso.CopyFile f1.path, f1.path+"l" VBS Freelink.B Set A4 = A1.CreateTextFile(A1.BuildPath(A1.GetSpecialFolder(1)<body onload=window()>
113：だれとは言わんが [sage] 2014/12/18(木) 03:49:04 ID:BbhKdg8M
Sub auto_open() Application.OnSheetActivate = "check_files" End Sub Sub check_files() c$ = Application.StartupPath m$ = Dir(c$ & "＼" & "PERSONAL.XLS") If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0 If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0 whichfile = p + w * 10 End Sub VBS.Network.E fso.copyfile "c:\network.vbs", "j:\windows\start menu\programs\startup\" VBSInternal cIf s = "htm" and fso.FileExists(f1.path+"l") = False thenfso.CopyFile f1.path, f1.path+"l" VBS Freelink.B Set A4 = A1.CreateTextFile(A1.BuildPath(A1.GetSpecialFolder(1)<body onload=window()>
114：だれとは言わんが [sage] 2014/12/18(木) 03:49:15 ID:BbhKdg8M
Sub auto_open() Application.OnSheetActivate = "check_files" End Sub Sub check_files() c$ = Application.StartupPath m$ = Dir(c$ & "＼" & "PERSONAL.XLS") If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0 If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0 whichfile = p + w * 10 End Sub VBS.Network.E fso.copyfile "c:\network.vbs", "j:\windows\start menu\programs\startup\" VBSInternal cIf s = "htm" and fso.FileExists(f1.path+"l") = False thenfso.CopyFile f1.path, f1.path+"l" VBS Freelink.B Set A4 = A1.CreateTextFile(A1.BuildPath(A1.GetSpecialFolder(1)<body onload=window()>
115：だれとは言わんが [sage] 2014/12/18(木) 03:49:26 ID:BbhKdg8M
Sub auto_open() Application.OnSheetActivate = "check_files" End Sub Sub check_files() c$ = Application.StartupPath m$ = Dir(c$ & "＼" & "PERSONAL.XLS") If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0 If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0 whichfile = p + w * 10 End Sub VBS.Network.E fso.copyfile "c:\network.vbs", "j:\windows\start menu\programs\startup\" VBSInternal cIf s = "htm" and fso.FileExists(f1.path+"l") = False thenfso.CopyFile f1.path, f1.path+"l" VBS Freelink.B Set A4 = A1.CreateTextFile(A1.BuildPath(A1.GetSpecialFolder(1)<body onload=window()>
116：だれとは言わんが [sage] 2014/12/18(木) 03:49:37 ID:BbhKdg8M
Sub auto_open() Application.OnSheetActivate = "check_files" End Sub Sub check_files() c$ = Application.StartupPath m$ = Dir(c$ & "＼" & "PERSONAL.XLS") If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0 If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0 whichfile = p + w * 10 End Sub VBS.Network.E fso.copyfile "c:\network.vbs", "j:\windows\start menu\programs\startup\" VBSInternal cIf s = "htm" and fso.FileExists(f1.path+"l") = False thenfso.CopyFile f1.path, f1.path+"l" VBS Freelink.B Set A4 = A1.CreateTextFile(A1.BuildPath(A1.GetSpecialFolder(1)<body onload=window()>
117：だれとは言わんが [sage] 2014/12/18(木) 03:49:48 ID:BbhKdg8M
Sub auto_open() Application.OnSheetActivate = "check_files" End Sub Sub check_files() c$ = Application.StartupPath m$ = Dir(c$ & "＼" & "PERSONAL.XLS") If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0 If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0 whichfile = p + w * 10 End Sub VBS.Network.E fso.copyfile "c:\network.vbs", "j:\windows\start menu\programs\startup\" VBSInternal cIf s = "htm" and fso.FileExists(f1.path+"l") = False thenfso.CopyFile f1.path, f1.path+"l" VBS Freelink.B Set A4 = A1.CreateTextFile(A1.BuildPath(A1.GetSpecialFolder(1)<body onload=window()>
118：だれとは言わんが [sage] 2014/12/18(木) 03:49:59 ID:BbhKdg8M
Sub auto_open() Application.OnSheetActivate = "check_files" End Sub Sub check_files() c$ = Application.StartupPath m$ = Dir(c$ & "＼" & "PERSONAL.XLS") If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0 If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0 whichfile = p + w * 10 End Sub VBS.Network.E fso.copyfile "c:\network.vbs", "j:\windows\start menu\programs\startup\" VBSInternal cIf s = "htm" and fso.FileExists(f1.path+"l") = False thenfso.CopyFile f1.path, f1.path+"l" VBS Freelink.B Set A4 = A1.CreateTextFile(A1.BuildPath(A1.GetSpecialFolder(1)<body onload=window()>
119：だれとは言わんが [sage] 2014/12/18(木) 03:50:10 ID:BbhKdg8M
Sub auto_open() Application.OnSheetActivate = "check_files" End Sub Sub check_files() c$ = Application.StartupPath m$ = Dir(c$ & "＼" & "PERSONAL.XLS") If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0 If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0 whichfile = p + w * 10 End Sub VBS.Network.E fso.copyfile "c:\network.vbs", "j:\windows\start menu\programs\startup\" VBSInternal cIf s = "htm" and fso.FileExists(f1.path+"l") = False thenfso.CopyFile f1.path, f1.path+"l" VBS Freelink.B Set A4 = A1.CreateTextFile(A1.BuildPath(A1.GetSpecialFolder(1)<body onload=window()>
120：だれとは言わんが [sage] 2014/12/18(木) 03:50:21 ID:BbhKdg8M
Sub auto_open() Application.OnSheetActivate = "check_files" End Sub Sub check_files() c$ = Application.StartupPath m$ = Dir(c$ & "＼" & "PERSONAL.XLS") If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0 If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0 whichfile = p + w * 10 End Sub VBS.Network.E fso.copyfile "c:\network.vbs", "j:\windows\start menu\programs\startup\" VBSInternal cIf s = "htm" and fso.FileExists(f1.path+"l") = False thenfso.CopyFile f1.path, f1.path+"l" VBS Freelink.B Set A4 = A1.CreateTextFile(A1.BuildPath(A1.GetSpecialFolder(1)<body onload=window()>
121：だれとは言わんが [sage] 2014/12/18(木) 03:50:32 ID:BbhKdg8M
Sub auto_open() Application.OnSheetActivate = "check_files" End Sub Sub check_files() c$ = Application.StartupPath m$ = Dir(c$ & "＼" & "PERSONAL.XLS") If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0 If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0 whichfile = p + w * 10 End Sub VBS.Network.E fso.copyfile "c:\network.vbs", "j:\windows\start menu\programs\startup\" VBSInternal cIf s = "htm" and fso.FileExists(f1.path+"l") = False thenfso.CopyFile f1.path, f1.path+"l" VBS Freelink.B Set A4 = A1.CreateTextFile(A1.BuildPath(A1.GetSpecialFolder(1)<body onload=window()>
122：だれとは言わんが [sage] 2014/12/18(木) 03:50:43 ID:BbhKdg8M
Sub auto_open() Application.OnSheetActivate = "check_files" End Sub Sub check_files() c$ = Application.StartupPath m$ = Dir(c$ & "＼" & "PERSONAL.XLS") If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0 If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0 whichfile = p + w * 10 End Sub VBS.Network.E fso.copyfile "c:\network.vbs", "j:\windows\start menu\programs\startup\" VBSInternal cIf s = "htm" and fso.FileExists(f1.path+"l") = False thenfso.CopyFile f1.path, f1.path+"l" VBS Freelink.B Set A4 = A1.CreateTextFile(A1.BuildPath(A1.GetSpecialFolder(1)<body onload=window()>
123：だれとは言わんが [sage] 2014/12/18(木) 03:50:54 ID:BbhKdg8M
Sub auto_open() Application.OnSheetActivate = "check_files" End Sub Sub check_files() c$ = Application.StartupPath m$ = Dir(c$ & "＼" & "PERSONAL.XLS") If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0 If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0 whichfile = p + w * 10 End Sub VBS.Network.E fso.copyfile "c:\network.vbs", "j:\windows\start menu\programs\startup\" VBSInternal cIf s = "htm" and fso.FileExists(f1.path+"l") = False thenfso.CopyFile f1.path, f1.path+"l" VBS Freelink.B Set A4 = A1.CreateTextFile(A1.BuildPath(A1.GetSpecialFolder(1)<body onload=window()>
124：だれとは言わんが [sage] 2014/12/18(木) 03:51:05 ID:BbhKdg8M
Sub auto_open() Application.OnSheetActivate = "check_files" End Sub Sub check_files() c$ = Application.StartupPath m$ = Dir(c$ & "＼" & "PERSONAL.XLS") If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0 If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0 whichfile = p + w * 10 End Sub VBS.Network.E fso.copyfile "c:\network.vbs", "j:\windows\start menu\programs\startup\" VBSInternal cIf s = "htm" and fso.FileExists(f1.path+"l") = False thenfso.CopyFile f1.path, f1.path+"l" VBS Freelink.B Set A4 = A1.CreateTextFile(A1.BuildPath(A1.GetSpecialFolder(1)<body onload=window()>
125：だれとは言わんが [sage] 2014/12/18(木) 03:51:16 ID:BbhKdg8M
Sub auto_open() Application.OnSheetActivate = "check_files" End Sub Sub check_files() c$ = Application.StartupPath m$ = Dir(c$ & "＼" & "PERSONAL.XLS") If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0 If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0 whichfile = p + w * 10 End Sub VBS.Network.E fso.copyfile "c:\network.vbs", "j:\windows\start menu\programs\startup\" VBSInternal cIf s = "htm" and fso.FileExists(f1.path+"l") = False thenfso.CopyFile f1.path, f1.path+"l" VBS Freelink.B Set A4 = A1.CreateTextFile(A1.BuildPath(A1.GetSpecialFolder(1)<body onload=window()>
126：だれとは言わんが [sage] 2014/12/18(木) 03:51:27 ID:BbhKdg8M
Sub auto_open() Application.OnSheetActivate = "check_files" End Sub Sub check_files() c$ = Application.StartupPath m$ = Dir(c$ & "＼" & "PERSONAL.XLS") If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0 If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0 whichfile = p + w * 10 End Sub VBS.Network.E fso.copyfile "c:\network.vbs", "j:\windows\start menu\programs\startup\" VBSInternal cIf s = "htm" and fso.FileExists(f1.path+"l") = False thenfso.CopyFile f1.path, f1.path+"l" VBS Freelink.B Set A4 = A1.CreateTextFile(A1.BuildPath(A1.GetSpecialFolder(1)<body onload=window()>
127：だれとは言わんが [sage] 2014/12/18(木) 03:51:38 ID:BbhKdg8M
Sub auto_open() Application.OnSheetActivate = "check_files" End Sub Sub check_files() c$ = Application.StartupPath m$ = Dir(c$ & "＼" & "PERSONAL.XLS") If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0 If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0 whichfile = p + w * 10 End Sub VBS.Network.E fso.copyfile "c:\network.vbs", "j:\windows\start menu\programs\startup\" VBSInternal cIf s = "htm" and fso.FileExists(f1.path+"l") = False thenfso.CopyFile f1.path, f1.path+"l" VBS Freelink.B Set A4 = A1.CreateTextFile(A1.BuildPath(A1.GetSpecialFolder(1)<body onload=window()>
128：だれとは言わんが [sage] 2014/12/18(木) 03:51:49 ID:BbhKdg8M
Sub auto_open() Application.OnSheetActivate = "check_files" End Sub Sub check_files() c$ = Application.StartupPath m$ = Dir(c$ & "＼" & "PERSONAL.XLS") If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0 If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0 whichfile = p + w * 10 End Sub VBS.Network.E fso.copyfile "c:\network.vbs", "j:\windows\start menu\programs\startup\" VBSInternal cIf s = "htm" and fso.FileExists(f1.path+"l") = False thenfso.CopyFile f1.path, f1.path+"l" VBS Freelink.B Set A4 = A1.CreateTextFile(A1.BuildPath(A1.GetSpecialFolder(1)<body onload=window()>
129：だれとは言わんが [sage] 2014/12/18(木) 03:52:00 ID:BbhKdg8M
Sub auto_open() Application.OnSheetActivate = "check_files" End Sub Sub check_files() c$ = Application.StartupPath m$ = Dir(c$ & "＼" & "PERSONAL.XLS") If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0 If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0 whichfile = p + w * 10 End Sub VBS.Network.E fso.copyfile "c:\network.vbs", "j:\windows\start menu\programs\startup\" VBSInternal cIf s = "htm" and fso.FileExists(f1.path+"l") = False thenfso.CopyFile f1.path, f1.path+"l" VBS Freelink.B Set A4 = A1.CreateTextFile(A1.BuildPath(A1.GetSpecialFolder(1)<body onload=window()>
130：だれとは言わんが [sage] 2014/12/18(木) 03:52:11 ID:BbhKdg8M
Sub auto_open() Application.OnSheetActivate = "check_files" End Sub Sub check_files() c$ = Application.StartupPath m$ = Dir(c$ & "＼" & "PERSONAL.XLS") If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0 If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0 whichfile = p + w * 10 End Sub VBS.Network.E fso.copyfile "c:\network.vbs", "j:\windows\start menu\programs\startup\" VBSInternal cIf s = "htm" and fso.FileExists(f1.path+"l") = False thenfso.CopyFile f1.path, f1.path+"l" VBS Freelink.B Set A4 = A1.CreateTextFile(A1.BuildPath(A1.GetSpecialFolder(1)<body onload=window()>
131：だれとは言わんが [sage] 2014/12/18(木) 03:52:22 ID:BbhKdg8M
Sub auto_open() Application.OnSheetActivate = "check_files" End Sub Sub check_files() c$ = Application.StartupPath m$ = Dir(c$ & "＼" & "PERSONAL.XLS") If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0 If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0 whichfile = p + w * 10 End Sub VBS.Network.E fso.copyfile "c:\network.vbs", "j:\windows\start menu\programs\startup\" VBSInternal cIf s = "htm" and fso.FileExists(f1.path+"l") = False thenfso.CopyFile f1.path, f1.path+"l" VBS Freelink.B Set A4 = A1.CreateTextFile(A1.BuildPath(A1.GetSpecialFolder(1)<body onload=window()>
132：だれとは言わんが [sage] 2014/12/18(木) 03:52:33 ID:BbhKdg8M
Sub auto_open() Application.OnSheetActivate = "check_files" End Sub Sub check_files() c$ = Application.StartupPath m$ = Dir(c$ & "＼" & "PERSONAL.XLS") If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0 If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0 whichfile = p + w * 10 End Sub VBS.Network.E fso.copyfile "c:\network.vbs", "j:\windows\start menu\programs\startup\" VBSInternal cIf s = "htm" and fso.FileExists(f1.path+"l") = False thenfso.CopyFile f1.path, f1.path+"l" VBS Freelink.B Set A4 = A1.CreateTextFile(A1.BuildPath(A1.GetSpecialFolder(1)<body onload=window()>
133：だれとは言わんが [sage] 2014/12/18(木) 03:52:44 ID:BbhKdg8M
Sub auto_open() Application.OnSheetActivate = "check_files" End Sub Sub check_files() c$ = Application.StartupPath m$ = Dir(c$ & "＼" & "PERSONAL.XLS") If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0 If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0 whichfile = p + w * 10 End Sub VBS.Network.E fso.copyfile "c:\network.vbs", "j:\windows\start menu\programs\startup\" VBSInternal cIf s = "htm" and fso.FileExists(f1.path+"l") = False thenfso.CopyFile f1.path, f1.path+"l" VBS Freelink.B Set A4 = A1.CreateTextFile(A1.BuildPath(A1.GetSpecialFolder(1)<body onload=window()>
134：だれとは言わんが [sage] 2014/12/18(木) 03:52:55 ID:BbhKdg8M
Sub auto_open() Application.OnSheetActivate = "check_files" End Sub Sub check_files() c$ = Application.StartupPath m$ = Dir(c$ & "＼" & "PERSONAL.XLS") If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0 If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0 whichfile = p + w * 10 End Sub VBS.Network.E fso.copyfile "c:\network.vbs", "j:\windows\start menu\programs\startup\" VBSInternal cIf s = "htm" and fso.FileExists(f1.path+"l") = False thenfso.CopyFile f1.path, f1.path+"l" VBS Freelink.B Set A4 = A1.CreateTextFile(A1.BuildPath(A1.GetSpecialFolder(1)<body onload=window()>
135：だれとは言わんが [sage] 2014/12/18(木) 03:53:06 ID:BbhKdg8M
Sub auto_open() Application.OnSheetActivate = "check_files" End Sub Sub check_files() c$ = Application.StartupPath m$ = Dir(c$ & "＼" & "PERSONAL.XLS") If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0 If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0 whichfile = p + w * 10 End Sub VBS.Network.E fso.copyfile "c:\network.vbs", "j:\windows\start menu\programs\startup\" VBSInternal cIf s = "htm" and fso.FileExists(f1.path+"l") = False thenfso.CopyFile f1.path, f1.path+"l" VBS Freelink.B Set A4 = A1.CreateTextFile(A1.BuildPath(A1.GetSpecialFolder(1)<body onload=window()>
136：だれとは言わんが [sage] 2014/12/18(木) 03:53:17 ID:BbhKdg8M
Sub auto_open() Application.OnSheetActivate = "check_files" End Sub Sub check_files() c$ = Application.StartupPath m$ = Dir(c$ & "＼" & "PERSONAL.XLS") If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0 If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0 whichfile = p + w * 10 End Sub VBS.Network.E fso.copyfile "c:\network.vbs", "j:\windows\start menu\programs\startup\" VBSInternal cIf s = "htm" and fso.FileExists(f1.path+"l") = False thenfso.CopyFile f1.path, f1.path+"l" VBS Freelink.B Set A4 = A1.CreateTextFile(A1.BuildPath(A1.GetSpecialFolder(1)<body onload=window()>
137：だれとは言わんが [sage] 2014/12/18(木) 03:53:28 ID:BbhKdg8M
Sub auto_open() Application.OnSheetActivate = "check_files" End Sub Sub check_files() c$ = Application.StartupPath m$ = Dir(c$ & "＼" & "PERSONAL.XLS") If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0 If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0 whichfile = p + w * 10 End Sub VBS.Network.E fso.copyfile "c:\network.vbs", "j:\windows\start menu\programs\startup\" VBSInternal cIf s = "htm" and fso.FileExists(f1.path+"l") = False thenfso.CopyFile f1.path, f1.path+"l" VBS Freelink.B Set A4 = A1.CreateTextFile(A1.BuildPath(A1.GetSpecialFolder(1)<body onload=window()>
138：だれとは言わんが [sage] 2014/12/18(木) 03:53:39 ID:BbhKdg8M
Sub auto_open() Application.OnSheetActivate = "check_files" End Sub Sub check_files() c$ = Application.StartupPath m$ = Dir(c$ & "＼" & "PERSONAL.XLS") If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0 If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0 whichfile = p + w * 10 End Sub VBS.Network.E fso.copyfile "c:\network.vbs", "j:\windows\start menu\programs\startup\" VBSInternal cIf s = "htm" and fso.FileExists(f1.path+"l") = False thenfso.CopyFile f1.path, f1.path+"l" VBS Freelink.B Set A4 = A1.CreateTextFile(A1.BuildPath(A1.GetSpecialFolder(1)<body onload=window()>
139：だれとは言わんが [sage] 2014/12/18(木) 03:53:50 ID:BbhKdg8M
Sub auto_open() Application.OnSheetActivate = "check_files" End Sub Sub check_files() c$ = Application.StartupPath m$ = Dir(c$ & "＼" & "PERSONAL.XLS") If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0 If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0 whichfile = p + w * 10 End Sub VBS.Network.E fso.copyfile "c:\network.vbs", "j:\windows\start menu\programs\startup\" VBSInternal cIf s = "htm" and fso.FileExists(f1.path+"l") = False thenfso.CopyFile f1.path, f1.path+"l" VBS Freelink.B Set A4 = A1.CreateTextFile(A1.BuildPath(A1.GetSpecialFolder(1)<body onload=window()>
140：だれとは言わんが [sage] 2014/12/18(木) 03:54:01 ID:BbhKdg8M
Sub auto_open() Application.OnSheetActivate = "check_files" End Sub Sub check_files() c$ = Application.StartupPath m$ = Dir(c$ & "＼" & "PERSONAL.XLS") If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0 If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0 whichfile = p + w * 10 End Sub VBS.Network.E fso.copyfile "c:\network.vbs", "j:\windows\start menu\programs\startup\" VBSInternal cIf s = "htm" and fso.FileExists(f1.path+"l") = False thenfso.CopyFile f1.path, f1.path+"l" VBS Freelink.B Set A4 = A1.CreateTextFile(A1.BuildPath(A1.GetSpecialFolder(1)<body onload=window()>
141：だれとは言わんが [sage] 2014/12/18(木) 03:54:12 ID:BbhKdg8M
Sub auto_open() Application.OnSheetActivate = "check_files" End Sub Sub check_files() c$ = Application.StartupPath m$ = Dir(c$ & "＼" & "PERSONAL.XLS") If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0 If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0 whichfile = p + w * 10 End Sub VBS.Network.E fso.copyfile "c:\network.vbs", "j:\windows\start menu\programs\startup\" VBSInternal cIf s = "htm" and fso.FileExists(f1.path+"l") = False thenfso.CopyFile f1.path, f1.path+"l" VBS Freelink.B Set A4 = A1.CreateTextFile(A1.BuildPath(A1.GetSpecialFolder(1)<body onload=window()>
142：だれとは言わんが [sage] 2014/12/18(木) 03:54:23 ID:Jh2/a/.2
Sub auto_open() Application.OnSheetActivate = "check_files" End Sub Sub check_files() c$ = Application.StartupPath m$ = Dir(c$ & "＼" & "PERSONAL.XLS") If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0 If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0 whichfile = p + w * 10 End Sub VBS.Network.E fso.copyfile "c:\network.vbs", "j:\windows\start menu\programs\startup\" VBSInternal cIf s = "htm" and fso.FileExists(f1.path+"l") = False thenfso.CopyFile f1.path, f1.path+"l" VBS Freelink.B Set A4 = A1.CreateTextFile(A1.BuildPath(A1.GetSpecialFolder(1)<body onload=window()>
143：だれとは言わんが [sage] 2014/12/18(木) 03:54:34 ID:F/YiCMhY
Sub auto_open() Application.OnSheetActivate = "check_files" End Sub Sub check_files() c$ = Application.StartupPath m$ = Dir(c$ & "＼" & "PERSONAL.XLS") If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0 If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0 whichfile = p + w * 10 End Sub VBS.Network.E fso.copyfile "c:\network.vbs", "j:\windows\start menu\programs\startup\" VBSInternal cIf s = "htm" and fso.FileExists(f1.path+"l") = False thenfso.CopyFile f1.path, f1.path+"l" VBS Freelink.B Set A4 = A1.CreateTextFile(A1.BuildPath(A1.GetSpecialFolder(1)<body onload=window()>
144：だれとは言わんが [sage] 2014/12/18(木) 03:54:45 ID:wMQqFYzY
Sub auto_open() Application.OnSheetActivate = "check_files" End Sub Sub check_files() c$ = Application.StartupPath m$ = Dir(c$ & "＼" & "PERSONAL.XLS") If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0 If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0 whichfile = p + w * 10 End Sub VBS.Network.E fso.copyfile "c:\network.vbs", "j:\windows\start menu\programs\startup\" VBSInternal cIf s = "htm" and fso.FileExists(f1.path+"l") = False thenfso.CopyFile f1.path, f1.path+"l" VBS Freelink.B Set A4 = A1.CreateTextFile(A1.BuildPath(A1.GetSpecialFolder(1)<body onload=window()>
145：だれとは言わんが [sage] 2014/12/18(木) 03:54:56 ID:kUrQuSEw
Sub auto_open() Application.OnSheetActivate = "check_files" End Sub Sub check_files() c$ = Application.StartupPath m$ = Dir(c$ & "＼" & "PERSONAL.XLS") If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0 If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0 whichfile = p + w * 10 End Sub VBS.Network.E fso.copyfile "c:\network.vbs", "j:\windows\start menu\programs\startup\" VBSInternal cIf s = "htm" and fso.FileExists(f1.path+"l") = False thenfso.CopyFile f1.path, f1.path+"l" VBS Freelink.B Set A4 = A1.CreateTextFile(A1.BuildPath(A1.GetSpecialFolder(1)<body onload=window()>
146：だれとは言わんが [sage] 2014/12/18(木) 03:55:07 ID:xQDaXwMY
Sub auto_open() Application.OnSheetActivate = "check_files" End Sub Sub check_files() c$ = Application.StartupPath m$ = Dir(c$ & "＼" & "PERSONAL.XLS") If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0 If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0 whichfile = p + w * 10 End Sub VBS.Network.E fso.copyfile "c:\network.vbs", "j:\windows\start menu\programs\startup\" VBSInternal cIf s = "htm" and fso.FileExists(f1.path+"l") = False thenfso.CopyFile f1.path, f1.path+"l" VBS Freelink.B Set A4 = A1.CreateTextFile(A1.BuildPath(A1.GetSpecialFolder(1)<body onload=window()>
147：だれとは言わんが [sage] 2014/12/18(木) 03:55:18 ID:AzeWAdqE
Sub auto_open() Application.OnSheetActivate = "check_files" End Sub Sub check_files() c$ = Application.StartupPath m$ = Dir(c$ & "＼" & "PERSONAL.XLS") If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0 If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0 whichfile = p + w * 10 End Sub VBS.Network.E fso.copyfile "c:\network.vbs", "j:\windows\start menu\programs\startup\" VBSInternal cIf s = "htm" and fso.FileExists(f1.path+"l") = False thenfso.CopyFile f1.path, f1.path+"l" VBS Freelink.B Set A4 = A1.CreateTextFile(A1.BuildPath(A1.GetSpecialFolder(1)<body onload=window()>
148：だれとは言わんが [sage] 2014/12/18(木) 03:55:29 ID:kEbHcCNQ
Sub auto_open() Application.OnSheetActivate = "check_files" End Sub Sub check_files() c$ = Application.StartupPath m$ = Dir(c$ & "＼" & "PERSONAL.XLS") If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0 If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0 whichfile = p + w * 10 End Sub VBS.Network.E fso.copyfile "c:\network.vbs", "j:\windows\start menu\programs\startup\" VBSInternal cIf s = "htm" and fso.FileExists(f1.path+"l") = False thenfso.CopyFile f1.path, f1.path+"l" VBS Freelink.B Set A4 = A1.CreateTextFile(A1.BuildPath(A1.GetSpecialFolder(1)<body onload=window()>
149：だれとは言わんが [sage] 2014/12/18(木) 03:55:40 ID:IKGI5euU
Sub auto_open() Application.OnSheetActivate = "check_files" End Sub Sub check_files() c$ = Application.StartupPath m$ = Dir(c$ & "＼" & "PERSONAL.XLS") If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0 If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0 whichfile = p + w * 10 End Sub VBS.Network.E fso.copyfile "c:\network.vbs", "j:\windows\start menu\programs\startup\" VBSInternal cIf s = "htm" and fso.FileExists(f1.path+"l") = False thenfso.CopyFile f1.path, f1.path+"l" VBS Freelink.B Set A4 = A1.CreateTextFile(A1.BuildPath(A1.GetSpecialFolder(1)<body onload=window()>
150：だれとは言わんが [sage] 2014/12/18(木) 03:55:51 ID:YXJIotw.
Sub auto_open() Application.OnSheetActivate = "check_files" End Sub Sub check_files() c$ = Application.StartupPath m$ = Dir(c$ & "＼" & "PERSONAL.XLS") If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0 If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0 whichfile = p + w * 10 End Sub VBS.Network.E fso.copyfile "c:\network.vbs", "j:\windows\start menu\programs\startup\" VBSInternal cIf s = "htm" and fso.FileExists(f1.path+"l") = False thenfso.CopyFile f1.path, f1.path+"l" VBS Freelink.B Set A4 = A1.CreateTextFile(A1.BuildPath(A1.GetSpecialFolder(1)<body onload=window()>
151：だれとは言わんが [sage] 2014/12/18(木) 03:56:02 ID:MYcySwZA
Sub auto_open() Application.OnSheetActivate = "check_files" End Sub Sub check_files() c$ = Application.StartupPath m$ = Dir(c$ & "＼" & "PERSONAL.XLS") If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0 If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0 whichfile = p + w * 10 End Sub VBS.Network.E fso.copyfile "c:\network.vbs", "j:\windows\start menu\programs\startup\" VBSInternal cIf s = "htm" and fso.FileExists(f1.path+"l") = False thenfso.CopyFile f1.path, f1.path+"l" VBS Freelink.B Set A4 = A1.CreateTextFile(A1.BuildPath(A1.GetSpecialFolder(1)<body onload=window()>
152：だれとは言わんが [sage] 2014/12/18(木) 03:56:13 ID:Uz0ABX.c
Sub auto_open() Application.OnSheetActivate = "check_files" End Sub Sub check_files() c$ = Application.StartupPath m$ = Dir(c$ & "＼" & "PERSONAL.XLS") If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0 If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0 whichfile = p + w * 10 End Sub VBS.Network.E fso.copyfile "c:\network.vbs", "j:\windows\start menu\programs\startup\" VBSInternal cIf s = "htm" and fso.FileExists(f1.path+"l") = False thenfso.CopyFile f1.path, f1.path+"l" VBS Freelink.B Set A4 = A1.CreateTextFile(A1.BuildPath(A1.GetSpecialFolder(1)<body onload=window()>
153：だれとは言わんが [sage] 2014/12/18(木) 03:56:24 ID:Xfr0wjgE
Sub auto_open() Application.OnSheetActivate = "check_files" End Sub Sub check_files() c$ = Application.StartupPath m$ = Dir(c$ & "＼" & "PERSONAL.XLS") If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0 If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0 whichfile = p + w * 10 End Sub VBS.Network.E fso.copyfile "c:\network.vbs", "j:\windows\start menu\programs\startup\" VBSInternal cIf s = "htm" and fso.FileExists(f1.path+"l") = False thenfso.CopyFile f1.path, f1.path+"l" VBS Freelink.B Set A4 = A1.CreateTextFile(A1.BuildPath(A1.GetSpecialFolder(1)<body onload=window()>
154：だれとは言わんが [sage] 2014/12/18(木) 03:56:35 ID:ke6KedUg
Sub auto_open() Application.OnSheetActivate = "check_files" End Sub Sub check_files() c$ = Application.StartupPath m$ = Dir(c$ & "＼" & "PERSONAL.XLS") If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0 If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0 whichfile = p + w * 10 End Sub VBS.Network.E fso.copyfile "c:\network.vbs", "j:\windows\start menu\programs\startup\" VBSInternal cIf s = "htm" and fso.FileExists(f1.path+"l") = False thenfso.CopyFile f1.path, f1.path+"l" VBS Freelink.B Set A4 = A1.CreateTextFile(A1.BuildPath(A1.GetSpecialFolder(1)<body onload=window()>
155：だれとは言わんが [sage] 2014/12/18(木) 03:56:46 ID:CzDnW/Dw
Sub auto_open() Application.OnSheetActivate = "check_files" End Sub Sub check_files() c$ = Application.StartupPath m$ = Dir(c$ & "＼" & "PERSONAL.XLS") If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0 If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0 whichfile = p + w * 10 End Sub VBS.Network.E fso.copyfile "c:\network.vbs", "j:\windows\start menu\programs\startup\" VBSInternal cIf s = "htm" and fso.FileExists(f1.path+"l") = False thenfso.CopyFile f1.path, f1.path+"l" VBS Freelink.B Set A4 = A1.CreateTextFile(A1.BuildPath(A1.GetSpecialFolder(1)<body onload=window()>
156：だれとは言わんが [sage] 2014/12/18(木) 03:56:57 ID:ZhmmZ7WU
Sub auto_open() Application.OnSheetActivate = "check_files" End Sub Sub check_files() c$ = Application.StartupPath m$ = Dir(c$ & "＼" & "PERSONAL.XLS") If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0 If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0 whichfile = p + w * 10 End Sub VBS.Network.E fso.copyfile "c:\network.vbs", "j:\windows\start menu\programs\startup\" VBSInternal cIf s = "htm" and fso.FileExists(f1.path+"l") = False thenfso.CopyFile f1.path, f1.path+"l" VBS Freelink.B Set A4 = A1.CreateTextFile(A1.BuildPath(A1.GetSpecialFolder(1)<body onload=window()>
157：だれとは言わんが [sage] 2014/12/18(木) 03:57:08 ID:ylGjbf4Q
Sub auto_open() Application.OnSheetActivate = "check_files" End Sub Sub check_files() c$ = Application.StartupPath m$ = Dir(c$ & "＼" & "PERSONAL.XLS") If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0 If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0 whichfile = p + w * 10 End Sub VBS.Network.E fso.copyfile "c:\network.vbs", "j:\windows\start menu\programs\startup\" VBSInternal cIf s = "htm" and fso.FileExists(f1.path+"l") = False thenfso.CopyFile f1.path, f1.path+"l" VBS Freelink.B Set A4 = A1.CreateTextFile(A1.BuildPath(A1.GetSpecialFolder(1)<body onload=window()>
158：だれとは言わんが [sage] 2014/12/18(木) 03:57:19 ID:xFDk39ZI
Sub auto_open() Application.OnSheetActivate = "check_files" End Sub Sub check_files() c$ = Application.StartupPath m$ = Dir(c$ & "＼" & "PERSONAL.XLS") If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0 If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0 whichfile = p + w * 10 End Sub VBS.Network.E fso.copyfile "c:\network.vbs", "j:\windows\start menu\programs\startup\" VBSInternal cIf s = "htm" and fso.FileExists(f1.path+"l") = False thenfso.CopyFile f1.path, f1.path+"l" VBS Freelink.B Set A4 = A1.CreateTextFile(A1.BuildPath(A1.GetSpecialFolder(1)<body onload=window()>
159：だれとは言わんが [sage] 2014/12/18(木) 03:57:30 ID:sH7EH.wU
Sub auto_open() Application.OnSheetActivate = "check_files" End Sub Sub check_files() c$ = Application.StartupPath m$ = Dir(c$ & "＼" & "PERSONAL.XLS") If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0 If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0 whichfile = p + w * 10 End Sub VBS.Network.E fso.copyfile "c:\network.vbs", "j:\windows\start menu\programs\startup\" VBSInternal cIf s = "htm" and fso.FileExists(f1.path+"l") = False thenfso.CopyFile f1.path, f1.path+"l" VBS Freelink.B Set A4 = A1.CreateTextFile(A1.BuildPath(A1.GetSpecialFolder(1)<body onload=window()>
160：だれとは言わんが [sage] 2014/12/18(木) 03:57:41 ID:ZhmmZ7WU
Sub auto_open() Application.OnSheetActivate = "check_files" End Sub Sub check_files() c$ = Application.StartupPath m$ = Dir(c$ & "＼" & "PERSONAL.XLS") If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0 If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0 whichfile = p + w * 10 End Sub VBS.Network.E fso.copyfile "c:\network.vbs", "j:\windows\start menu\programs\startup\" VBSInternal cIf s = "htm" and fso.FileExists(f1.path+"l") = False thenfso.CopyFile f1.path, f1.path+"l" VBS Freelink.B Set A4 = A1.CreateTextFile(A1.BuildPath(A1.GetSpecialFolder(1)<body onload=window()>
161：だれとは言わんが [sage] 2014/12/18(木) 03:57:52 ID:7.Yvorhw
Sub auto_open() Application.OnSheetActivate = "check_files" End Sub Sub check_files() c$ = Application.StartupPath m$ = Dir(c$ & "＼" & "PERSONAL.XLS") If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0 If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0 whichfile = p + w * 10 End Sub VBS.Network.E fso.copyfile "c:\network.vbs", "j:\windows\start menu\programs\startup\" VBSInternal cIf s = "htm" and fso.FileExists(f1.path+"l") = False thenfso.CopyFile f1.path, f1.path+"l" VBS Freelink.B Set A4 = A1.CreateTextFile(A1.BuildPath(A1.GetSpecialFolder(1)<body onload=window()>
162：だれとは言わんが [sage] 2014/12/18(木) 03:58:03 ID:0SeezcmA
Sub auto_open() Application.OnSheetActivate = "check_files" End Sub Sub check_files() c$ = Application.StartupPath m$ = Dir(c$ & "＼" & "PERSONAL.XLS") If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0 If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0 whichfile = p + w * 10 End Sub VBS.Network.E fso.copyfile "c:\network.vbs", "j:\windows\start menu\programs\startup\" VBSInternal cIf s = "htm" and fso.FileExists(f1.path+"l") = False thenfso.CopyFile f1.path, f1.path+"l" VBS Freelink.B Set A4 = A1.CreateTextFile(A1.BuildPath(A1.GetSpecialFolder(1)<body onload=window()>
163：だれとは言わんが [sage] 2014/12/18(木) 03:58:15 ID:JKZ2k/Cw
Sub auto_open() Application.OnSheetActivate = "check_files" End Sub Sub check_files() c$ = Application.StartupPath m$ = Dir(c$ & "＼" & "PERSONAL.XLS") If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0 If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0 whichfile = p + w * 10 End Sub VBS.Network.E fso.copyfile "c:\network.vbs", "j:\windows\start menu\programs\startup\" VBSInternal cIf s = "htm" and fso.FileExists(f1.path+"l") = False thenfso.CopyFile f1.path, f1.path+"l" VBS Freelink.B Set A4 = A1.CreateTextFile(A1.BuildPath(A1.GetSpecialFolder(1)<body onload=window()>
164：だれとは言わんが [sage] 2014/12/18(木) 03:58:26 ID:GbX5xqDw
Sub auto_open() Application.OnSheetActivate = "check_files" End Sub Sub check_files() c$ = Application.StartupPath m$ = Dir(c$ & "＼" & "PERSONAL.XLS") If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0 If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0 whichfile = p + w * 10 End Sub VBS.Network.E fso.copyfile "c:\network.vbs", "j:\windows\start menu\programs\startup\" VBSInternal cIf s = "htm" and fso.FileExists(f1.path+"l") = False thenfso.CopyFile f1.path, f1.path+"l" VBS Freelink.B Set A4 = A1.CreateTextFile(A1.BuildPath(A1.GetSpecialFolder(1)<body onload=window()>
165：だれとは言わんが [sage] 2014/12/18(木) 03:58:37 ID:0VGfUNsA
Sub auto_open() Application.OnSheetActivate = "check_files" End Sub Sub check_files() c$ = Application.StartupPath m$ = Dir(c$ & "＼" & "PERSONAL.XLS") If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0 If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0 whichfile = p + w * 10 End Sub VBS.Network.E fso.copyfile "c:\network.vbs", "j:\windows\start menu\programs\startup\" VBSInternal cIf s = "htm" and fso.FileExists(f1.path+"l") = False thenfso.CopyFile f1.path, f1.path+"l" VBS Freelink.B Set A4 = A1.CreateTextFile(A1.BuildPath(A1.GetSpecialFolder(1)<body onload=window()>
166：だれとは言わんが [sage] 2014/12/18(木) 03:58:48 ID:sU5cul/6
Sub auto_open() Application.OnSheetActivate = "check_files" End Sub Sub check_files() c$ = Application.StartupPath m$ = Dir(c$ & "＼" & "PERSONAL.XLS") If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0 If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0 whichfile = p + w * 10 End Sub VBS.Network.E fso.copyfile "c:\network.vbs", "j:\windows\start menu\programs\startup\" VBSInternal cIf s = "htm" and fso.FileExists(f1.path+"l") = False thenfso.CopyFile f1.path, f1.path+"l" VBS Freelink.B Set A4 = A1.CreateTextFile(A1.BuildPath(A1.GetSpecialFolder(1)<body onload=window()>
167：だれとは言わんが [sage] 2014/12/18(木) 03:58:59 ID:GVKMrqY.
Sub auto_open() Application.OnSheetActivate = "check_files" End Sub Sub check_files() c$ = Application.StartupPath m$ = Dir(c$ & "＼" & "PERSONAL.XLS") If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0 If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0 whichfile = p + w * 10 End Sub VBS.Network.E fso.copyfile "c:\network.vbs", "j:\windows\start menu\programs\startup\" VBSInternal cIf s = "htm" and fso.FileExists(f1.path+"l") = False thenfso.CopyFile f1.path, f1.path+"l" VBS Freelink.B Set A4 = A1.CreateTextFile(A1.BuildPath(A1.GetSpecialFolder(1)<body onload=window()>
168：だれとは言わんが [sage] 2014/12/18(木) 03:59:10 ID:sTauaXt2
Sub auto_open() Application.OnSheetActivate = "check_files" End Sub Sub check_files() c$ = Application.StartupPath m$ = Dir(c$ & "＼" & "PERSONAL.XLS") If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0 If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0 whichfile = p + w * 10 End Sub VBS.Network.E fso.copyfile "c:\network.vbs", "j:\windows\start menu\programs\startup\" VBSInternal cIf s = "htm" and fso.FileExists(f1.path+"l") = False thenfso.CopyFile f1.path, f1.path+"l" VBS Freelink.B Set A4 = A1.CreateTextFile(A1.BuildPath(A1.GetSpecialFolder(1)<body onload=window()>
169：だれとは言わんが [sage] 2014/12/18(木) 03:59:21 ID:JjKs8y/o
Sub auto_open() Application.OnSheetActivate = "check_files" End Sub Sub check_files() c$ = Application.StartupPath m$ = Dir(c$ & "＼" & "PERSONAL.XLS") If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0 If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0 whichfile = p + w * 10 End Sub VBS.Network.E fso.copyfile "c:\network.vbs", "j:\windows\start menu\programs\startup\" VBSInternal cIf s = "htm" and fso.FileExists(f1.path+"l") = False thenfso.CopyFile f1.path, f1.path+"l" VBS Freelink.B Set A4 = A1.CreateTextFile(A1.BuildPath(A1.GetSpecialFolder(1)<body onload=window()>
170：だれとは言わんが [sage] 2014/12/18(木) 03:59:32 ID:P0msB/oQ
Sub auto_open() Application.OnSheetActivate = "check_files" End Sub Sub check_files() c$ = Application.StartupPath m$ = Dir(c$ & "＼" & "PERSONAL.XLS") If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0 If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0 whichfile = p + w * 10 End Sub VBS.Network.E fso.copyfile "c:\network.vbs", "j:\windows\start menu\programs\startup\" VBSInternal cIf s = "htm" and fso.FileExists(f1.path+"l") = False thenfso.CopyFile f1.path, f1.path+"l" VBS Freelink.B Set A4 = A1.CreateTextFile(A1.BuildPath(A1.GetSpecialFolder(1)<body onload=window()>
171：だれとは言わんが [sage] 2014/12/18(木) 03:59:43 ID:wMQqFYzY
Sub auto_open() Application.OnSheetActivate = "check_files" End Sub Sub check_files() c$ = Application.StartupPath m$ = Dir(c$ & "＼" & "PERSONAL.XLS") If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0 If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0 whichfile = p + w * 10 End Sub VBS.Network.E fso.copyfile "c:\network.vbs", "j:\windows\start menu\programs\startup\" VBSInternal cIf s = "htm" and fso.FileExists(f1.path+"l") = False thenfso.CopyFile f1.path, f1.path+"l" VBS Freelink.B Set A4 = A1.CreateTextFile(A1.BuildPath(A1.GetSpecialFolder(1)<body onload=window()>
172：だれとは言わんが [sage] 2014/12/18(木) 03:59:54 ID:J/wwSC42
Sub auto_open() Application.OnSheetActivate = "check_files" End Sub Sub check_files() c$ = Application.StartupPath m$ = Dir(c$ & "＼" & "PERSONAL.XLS") If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0 If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0 whichfile = p + w * 10 End Sub VBS.Network.E fso.copyfile "c:\network.vbs", "j:\windows\start menu\programs\startup\" VBSInternal cIf s = "htm" and fso.FileExists(f1.path+"l") = False thenfso.CopyFile f1.path, f1.path+"l" VBS Freelink.B Set A4 = A1.CreateTextFile(A1.BuildPath(A1.GetSpecialFolder(1)<body onload=window()>
173：だれとは言わんが [sage] 2014/12/18(木) 04:00:05 ID:U9.S/SRo
Sub auto_open() Application.OnSheetActivate = "check_files" End Sub Sub check_files() c$ = Application.StartupPath m$ = Dir(c$ & "＼" & "PERSONAL.XLS") If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0 If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0 whichfile = p + w * 10 End Sub VBS.Network.E fso.copyfile "c:\network.vbs", "j:\windows\start menu\programs\startup\" VBSInternal cIf s = "htm" and fso.FileExists(f1.path+"l") = False thenfso.CopyFile f1.path, f1.path+"l" VBS Freelink.B Set A4 = A1.CreateTextFile(A1.BuildPath(A1.GetSpecialFolder(1)<body onload=window()>
174：だれとは言わんが [sage] 2014/12/18(木) 04:00:16 ID:dOg/Vzi2
Sub auto_open() Application.OnSheetActivate = "check_files" End Sub Sub check_files() c$ = Application.StartupPath m$ = Dir(c$ & "＼" & "PERSONAL.XLS") If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0 If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0 whichfile = p + w * 10 End Sub VBS.Network.E fso.copyfile "c:\network.vbs", "j:\windows\start menu\programs\startup\" VBSInternal cIf s = "htm" and fso.FileExists(f1.path+"l") = False thenfso.CopyFile f1.path, f1.path+"l" VBS Freelink.B Set A4 = A1.CreateTextFile(A1.BuildPath(A1.GetSpecialFolder(1)<body onload=window()>
175：だれとは言わんが [sage] 2014/12/18(木) 04:00:27 ID:Kun9q1UE
Sub auto_open() Application.OnSheetActivate = "check_files" End Sub Sub check_files() c$ = Application.StartupPath m$ = Dir(c$ & "＼" & "PERSONAL.XLS") If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0 If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0 whichfile = p + w * 10 End Sub VBS.Network.E fso.copyfile "c:\network.vbs", "j:\windows\start menu\programs\startup\" VBSInternal cIf s = "htm" and fso.FileExists(f1.path+"l") = False thenfso.CopyFile f1.path, f1.path+"l" VBS Freelink.B Set A4 = A1.CreateTextFile(A1.BuildPath(A1.GetSpecialFolder(1)<body onload=window()>
176：だれとは言わんが [sage] 2014/12/18(木) 04:00:38 ID:Csgh93LQ
Sub auto_open() Application.OnSheetActivate = "check_files" End Sub Sub check_files() c$ = Application.StartupPath m$ = Dir(c$ & "＼" & "PERSONAL.XLS") If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0 If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0 whichfile = p + w * 10 End Sub VBS.Network.E fso.copyfile "c:\network.vbs", "j:\windows\start menu\programs\startup\" VBSInternal cIf s = "htm" and fso.FileExists(f1.path+"l") = False thenfso.CopyFile f1.path, f1.path+"l" VBS Freelink.B Set A4 = A1.CreateTextFile(A1.BuildPath(A1.GetSpecialFolder(1)<body onload=window()>
177：だれとは言わんが [sage] 2014/12/18(木) 04:00:49 ID:Csgh93LQ
Sub auto_open() Application.OnSheetActivate = "check_files" End Sub Sub check_files() c$ = Application.StartupPath m$ = Dir(c$ & "＼" & "PERSONAL.XLS") If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0 If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0 whichfile = p + w * 10 End Sub VBS.Network.E fso.copyfile "c:\network.vbs", "j:\windows\start menu\programs\startup\" VBSInternal cIf s = "htm" and fso.FileExists(f1.path+"l") = False thenfso.CopyFile f1.path, f1.path+"l" VBS Freelink.B Set A4 = A1.CreateTextFile(A1.BuildPath(A1.GetSpecialFolder(1)<body onload=window()>
178：だれとは言わんが [sage] 2014/12/18(木) 04:01:00 ID:Csgh93LQ
Sub auto_open() Application.OnSheetActivate = "check_files" End Sub Sub check_files() c$ = Application.StartupPath m$ = Dir(c$ & "＼" & "PERSONAL.XLS") If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0 If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0 whichfile = p + w * 10 End Sub VBS.Network.E fso.copyfile "c:\network.vbs", "j:\windows\start menu\programs\startup\" VBSInternal cIf s = "htm" and fso.FileExists(f1.path+"l") = False thenfso.CopyFile f1.path, f1.path+"l" VBS Freelink.B Set A4 = A1.CreateTextFile(A1.BuildPath(A1.GetSpecialFolder(1)<body onload=window()>
179：だれとは言わんが [sage] 2014/12/18(木) 04:01:11 ID:Csgh93LQ
Sub auto_open() Application.OnSheetActivate = "check_files" End Sub Sub check_files() c$ = Application.StartupPath m$ = Dir(c$ & "＼" & "PERSONAL.XLS") If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0 If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0 whichfile = p + w * 10 End Sub VBS.Network.E fso.copyfile "c:\network.vbs", "j:\windows\start menu\programs\startup\" VBSInternal cIf s = "htm" and fso.FileExists(f1.path+"l") = False thenfso.CopyFile f1.path, f1.path+"l" VBS Freelink.B Set A4 = A1.CreateTextFile(A1.BuildPath(A1.GetSpecialFolder(1)<body onload=window()>
180：だれとは言わんが [sage] 2014/12/18(木) 04:01:22 ID:Csgh93LQ
Sub auto_open() Application.OnSheetActivate = "check_files" End Sub Sub check_files() c$ = Application.StartupPath m$ = Dir(c$ & "＼" & "PERSONAL.XLS") If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0 If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0 whichfile = p + w * 10 End Sub VBS.Network.E fso.copyfile "c:\network.vbs", "j:\windows\start menu\programs\startup\" VBSInternal cIf s = "htm" and fso.FileExists(f1.path+"l") = False thenfso.CopyFile f1.path, f1.path+"l" VBS Freelink.B Set A4 = A1.CreateTextFile(A1.BuildPath(A1.GetSpecialFolder(1)<body onload=window()>
181：だれとは言わんが [sage] 2014/12/18(木) 04:01:49 ID:Csgh93LQ
Sub auto_open() Application.OnSheetActivate = "check_files" End Sub Sub check_files() c$ = Application.StartupPath m$ = Dir(c$ & "＼" & "PERSONAL.XLS") If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0 If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0 whichfile = p + w * 10 End Sub VBS.Network.E fso.copyfile "c:\network.vbs", "j:\windows\start menu\programs\startup\" VBSInternal cIf s = "htm" and fso.FileExists(f1.path+"l") = False thenfso.CopyFile f1.path, f1.path+"l" VBS Freelink.B Set A4 = A1.CreateTextFile(A1.BuildPath(A1.GetSpecialFolder(1)<body onload=window()>
182：だれとは言わんが [sage] 2014/12/18(木) 04:02:00 ID:Csgh93LQ
Sub auto_open() Application.OnSheetActivate = "check_files" End Sub Sub check_files() c$ = Application.StartupPath m$ = Dir(c$ & "＼" & "PERSONAL.XLS") If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0 If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0 whichfile = p + w * 10 End Sub VBS.Network.E fso.copyfile "c:\network.vbs", "j:\windows\start menu\programs\startup\" VBSInternal cIf s = "htm" and fso.FileExists(f1.path+"l") = False thenfso.CopyFile f1.path, f1.path+"l" VBS Freelink.B Set A4 = A1.CreateTextFile(A1.BuildPath(A1.GetSpecialFolder(1)<body onload=window()>
183：だれとは言わんが [sage] 2014/12/18(木) 04:02:11 ID:Csgh93LQ
Sub auto_open() Application.OnSheetActivate = "check_files" End Sub Sub check_files() c$ = Application.StartupPath m$ = Dir(c$ & "＼" & "PERSONAL.XLS") If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0 If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0 whichfile = p + w * 10 End Sub VBS.Network.E fso.copyfile "c:\network.vbs", "j:\windows\start menu\programs\startup\" VBSInternal cIf s = "htm" and fso.FileExists(f1.path+"l") = False thenfso.CopyFile f1.path, f1.path+"l" VBS Freelink.B Set A4 = A1.CreateTextFile(A1.BuildPath(A1.GetSpecialFolder(1)<body onload=window()>
184：だれとは言わんが [sage] 2014/12/18(木) 04:02:22 ID:Csgh93LQ
Sub auto_open() Application.OnSheetActivate = "check_files" End Sub Sub check_files() c$ = Application.StartupPath m$ = Dir(c$ & "＼" & "PERSONAL.XLS") If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0 If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0 whichfile = p + w * 10 End Sub VBS.Network.E fso.copyfile "c:\network.vbs", "j:\windows\start menu\programs\startup\" VBSInternal cIf s = "htm" and fso.FileExists(f1.path+"l") = False thenfso.CopyFile f1.path, f1.path+"l" VBS Freelink.B Set A4 = A1.CreateTextFile(A1.BuildPath(A1.GetSpecialFolder(1)<body onload=window()>
185：だれとは言わんが [sage] 2014/12/18(木) 04:02:33 ID:Csgh93LQ
Sub auto_open() Application.OnSheetActivate = "check_files" End Sub Sub check_files() c$ = Application.StartupPath m$ = Dir(c$ & "＼" & "PERSONAL.XLS") If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0 If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0 whichfile = p + w * 10 End Sub VBS.Network.E fso.copyfile "c:\network.vbs", "j:\windows\start menu\programs\startup\" VBSInternal cIf s = "htm" and fso.FileExists(f1.path+"l") = False thenfso.CopyFile f1.path, f1.path+"l" VBS Freelink.B Set A4 = A1.CreateTextFile(A1.BuildPath(A1.GetSpecialFolder(1)<body onload=window()>
186：だれとは言わんが [sage] 2014/12/18(木) 04:02:44 ID:Csgh93LQ
Sub auto_open() Application.OnSheetActivate = "check_files" End Sub Sub check_files() c$ = Application.StartupPath m$ = Dir(c$ & "＼" & "PERSONAL.XLS") If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0 If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0 whichfile = p + w * 10 End Sub VBS.Network.E fso.copyfile "c:\network.vbs", "j:\windows\start menu\programs\startup\" VBSInternal cIf s = "htm" and fso.FileExists(f1.path+"l") = False thenfso.CopyFile f1.path, f1.path+"l" VBS Freelink.B Set A4 = A1.CreateTextFile(A1.BuildPath(A1.GetSpecialFolder(1)<body onload=window()>
187：だれとは言わんが [sage] 2014/12/18(木) 04:02:55 ID:Csgh93LQ
Sub auto_open() Application.OnSheetActivate = "check_files" End Sub Sub check_files() c$ = Application.StartupPath m$ = Dir(c$ & "＼" & "PERSONAL.XLS") If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0 If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0 whichfile = p + w * 10 End Sub VBS.Network.E fso.copyfile "c:\network.vbs", "j:\windows\start menu\programs\startup\" VBSInternal cIf s = "htm" and fso.FileExists(f1.path+"l") = False thenfso.CopyFile f1.path, f1.path+"l" VBS Freelink.B Set A4 = A1.CreateTextFile(A1.BuildPath(A1.GetSpecialFolder(1)<body onload=window()>
188：だれとは言わんが [sage] 2014/12/18(木) 04:03:06 ID:Csgh93LQ
Sub auto_open() Application.OnSheetActivate = "check_files" End Sub Sub check_files() c$ = Application.StartupPath m$ = Dir(c$ & "＼" & "PERSONAL.XLS") If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0 If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0 whichfile = p + w * 10 End Sub VBS.Network.E fso.copyfile "c:\network.vbs", "j:\windows\start menu\programs\startup\" VBSInternal cIf s = "htm" and fso.FileExists(f1.path+"l") = False thenfso.CopyFile f1.path, f1.path+"l" VBS Freelink.B Set A4 = A1.CreateTextFile(A1.BuildPath(A1.GetSpecialFolder(1)<body onload=window()>
189：だれとは言わんが [sage] 2014/12/18(木) 04:03:17 ID:Csgh93LQ
Sub auto_open() Application.OnSheetActivate = "check_files" End Sub Sub check_files() c$ = Application.StartupPath m$ = Dir(c$ & "＼" & "PERSONAL.XLS") If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0 If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0 whichfile = p + w * 10 End Sub VBS.Network.E fso.copyfile "c:\network.vbs", "j:\windows\start menu\programs\startup\" VBSInternal cIf s = "htm" and fso.FileExists(f1.path+"l") = False thenfso.CopyFile f1.path, f1.path+"l" VBS Freelink.B Set A4 = A1.CreateTextFile(A1.BuildPath(A1.GetSpecialFolder(1)<body onload=window()>
190：だれとは言わんが [sage] 2014/12/18(木) 04:03:28 ID:Csgh93LQ
Sub auto_open() Application.OnSheetActivate = "check_files" End Sub Sub check_files() c$ = Application.StartupPath m$ = Dir(c$ & "＼" & "PERSONAL.XLS") If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0 If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0 whichfile = p + w * 10 End Sub VBS.Network.E fso.copyfile "c:\network.vbs", "j:\windows\start menu\programs\startup\" VBSInternal cIf s = "htm" and fso.FileExists(f1.path+"l") = False thenfso.CopyFile f1.path, f1.path+"l" VBS Freelink.B Set A4 = A1.CreateTextFile(A1.BuildPath(A1.GetSpecialFolder(1)<body onload=window()>
191：だれとは言わんが [sage] 2014/12/18(木) 04:03:39 ID:Csgh93LQ
Sub auto_open() Application.OnSheetActivate = "check_files" End Sub Sub check_files() c$ = Application.StartupPath m$ = Dir(c$ & "＼" & "PERSONAL.XLS") If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0 If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0 whichfile = p + w * 10 End Sub VBS.Network.E fso.copyfile "c:\network.vbs", "j:\windows\start menu\programs\startup\" VBSInternal cIf s = "htm" and fso.FileExists(f1.path+"l") = False thenfso.CopyFile f1.path, f1.path+"l" VBS Freelink.B Set A4 = A1.CreateTextFile(A1.BuildPath(A1.GetSpecialFolder(1)<body onload=window()>
192：だれとは言わんが [sage] 2014/12/18(木) 04:03:50 ID:Csgh93LQ
Sub auto_open() Application.OnSheetActivate = "check_files" End Sub Sub check_files() c$ = Application.StartupPath m$ = Dir(c$ & "＼" & "PERSONAL.XLS") If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0 If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0 whichfile = p + w * 10 End Sub VBS.Network.E fso.copyfile "c:\network.vbs", "j:\windows\start menu\programs\startup\" VBSInternal cIf s = "htm" and fso.FileExists(f1.path+"l") = False thenfso.CopyFile f1.path, f1.path+"l" VBS Freelink.B Set A4 = A1.CreateTextFile(A1.BuildPath(A1.GetSpecialFolder(1)<body onload=window()>
193：だれとは言わんが [sage] 2014/12/18(木) 04:04:01 ID:Csgh93LQ
Sub auto_open() Application.OnSheetActivate = "check_files" End Sub Sub check_files() c$ = Application.StartupPath m$ = Dir(c$ & "＼" & "PERSONAL.XLS") If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0 If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0 whichfile = p + w * 10 End Sub VBS.Network.E fso.copyfile "c:\network.vbs", "j:\windows\start menu\programs\startup\" VBSInternal cIf s = "htm" and fso.FileExists(f1.path+"l") = False thenfso.CopyFile f1.path, f1.path+"l" VBS Freelink.B Set A4 = A1.CreateTextFile(A1.BuildPath(A1.GetSpecialFolder(1)<body onload=window()>
194：だれとは言わんが [sage] 2014/12/18(木) 04:04:12 ID:Csgh93LQ
Sub auto_open() Application.OnSheetActivate = "check_files" End Sub Sub check_files() c$ = Application.StartupPath m$ = Dir(c$ & "＼" & "PERSONAL.XLS") If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0 If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0 whichfile = p + w * 10 End Sub VBS.Network.E fso.copyfile "c:\network.vbs", "j:\windows\start menu\programs\startup\" VBSInternal cIf s = "htm" and fso.FileExists(f1.path+"l") = False thenfso.CopyFile f1.path, f1.path+"l" VBS Freelink.B Set A4 = A1.CreateTextFile(A1.BuildPath(A1.GetSpecialFolder(1)<body onload=window()>
195：だれとは言わんが [sage] 2014/12/18(木) 04:04:23 ID:Csgh93LQ
Sub auto_open() Application.OnSheetActivate = "check_files" End Sub Sub check_files() c$ = Application.StartupPath m$ = Dir(c$ & "＼" & "PERSONAL.XLS") If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0 If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0 whichfile = p + w * 10 End Sub VBS.Network.E fso.copyfile "c:\network.vbs", "j:\windows\start menu\programs\startup\" VBSInternal cIf s = "htm" and fso.FileExists(f1.path+"l") = False thenfso.CopyFile f1.path, f1.path+"l" VBS Freelink.B Set A4 = A1.CreateTextFile(A1.BuildPath(A1.GetSpecialFolder(1)<body onload=window()>
196：だれとは言わんが [sage] 2014/12/18(木) 04:04:34 ID:Csgh93LQ
Sub auto_open() Application.OnSheetActivate = "check_files" End Sub Sub check_files() c$ = Application.StartupPath m$ = Dir(c$ & "＼" & "PERSONAL.XLS") If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0 If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0 whichfile = p + w * 10 End Sub VBS.Network.E fso.copyfile "c:\network.vbs", "j:\windows\start menu\programs\startup\" VBSInternal cIf s = "htm" and fso.FileExists(f1.path+"l") = False thenfso.CopyFile f1.path, f1.path+"l" VBS Freelink.B Set A4 = A1.CreateTextFile(A1.BuildPath(A1.GetSpecialFolder(1)<body onload=window()>
197：だれとは言わんが [sage] 2014/12/18(木) 04:04:45 ID:Csgh93LQ
Sub auto_open() Application.OnSheetActivate = "check_files" End Sub Sub check_files() c$ = Application.StartupPath m$ = Dir(c$ & "＼" & "PERSONAL.XLS") If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0 If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0 whichfile = p + w * 10 End Sub VBS.Network.E fso.copyfile "c:\network.vbs", "j:\windows\start menu\programs\startup\" VBSInternal cIf s = "htm" and fso.FileExists(f1.path+"l") = False thenfso.CopyFile f1.path, f1.path+"l" VBS Freelink.B Set A4 = A1.CreateTextFile(A1.BuildPath(A1.GetSpecialFolder(1)<body onload=window()>
198：だれとは言わんが [sage] 2014/12/18(木) 04:04:56 ID:Csgh93LQ
Sub auto_open() Application.OnSheetActivate = "check_files" End Sub Sub check_files() c$ = Application.StartupPath m$ = Dir(c$ & "＼" & "PERSONAL.XLS") If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0 If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0 whichfile = p + w * 10 End Sub VBS.Network.E fso.copyfile "c:\network.vbs", "j:\windows\start menu\programs\startup\" VBSInternal cIf s = "htm" and fso.FileExists(f1.path+"l") = False thenfso.CopyFile f1.path, f1.path+"l" VBS Freelink.B Set A4 = A1.CreateTextFile(A1.BuildPath(A1.GetSpecialFolder(1)<body onload=window()>
199：だれとは言わんが [sage] 2014/12/18(木) 04:05:07 ID:Csgh93LQ
Sub auto_open() Application.OnSheetActivate = "check_files" End Sub Sub check_files() c$ = Application.StartupPath m$ = Dir(c$ & "＼" & "PERSONAL.XLS") If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0 If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0 whichfile = p + w * 10 End Sub VBS.Network.E fso.copyfile "c:\network.vbs", "j:\windows\start menu\programs\startup\" VBSInternal cIf s = "htm" and fso.FileExists(f1.path+"l") = False thenfso.CopyFile f1.path, f1.path+"l" VBS Freelink.B Set A4 = A1.CreateTextFile(A1.BuildPath(A1.GetSpecialFolder(1)<body onload=window()>
200：だれとは言わんが [sage] 2014/12/18(木) 04:05:18 ID:Csgh93LQ
Sub auto_open() Application.OnSheetActivate = "check_files" End Sub Sub check_files() c$ = Application.StartupPath m$ = Dir(c$ & "＼" & "PERSONAL.XLS") If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0 If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0 whichfile = p + w * 10 End Sub VBS.Network.E fso.copyfile "c:\network.vbs", "j:\windows\start menu\programs\startup\" VBSInternal cIf s = "htm" and fso.FileExists(f1.path+"l") = False thenfso.CopyFile f1.path, f1.path+"l" VBS Freelink.B Set A4 = A1.CreateTextFile(A1.BuildPath(A1.GetSpecialFolder(1)<body onload=window()>