n Error Resume Next
Dim notepad_hwnd As Long, i As Long, pid As Long, q As Long
Dim notepad_path As String
Dim delimeter As String
Dim Map_path() As String
Dim the_Map_path As String
notepad_hwnd& = FindWindow(vbNullString, "英雄联盟登录程序")
i = GetWindowThreadProcessId(notepad_hwnd, pid)
notepad_path = GetProcessPathByProcessID(pid)
delimeter = "\"
Map_path = Split(notepad_path, "TCLS")
the_Map_path = Map_path(0) & "Binaries\Win32"
q = the_Map_path
Text1.Text = q

我的意思就想把 通过窗口找到“英雄联盟登录程序” 然后得到他的路径。这路径我找到了 我想把路径分割
比如路径是E:\英雄联盟\TCLS\Client.exe
Map_path = Split(notepad_path, "TCLS")  
《这话就是上面的路径跟tcls后面都删除》就变成E:\英雄联盟\
the_Map_path = Map_path(0) & "Binaries\Win32"几句话变成以后就是
E:\英雄联盟\Binaries\Win32
然后在E:\英雄联盟\Binaries\Win32
里删除2个 dir_backup.dat 和tacc_1_2.dll 2个文件

然后在释放2个文件在E:\英雄联盟\Binaries\Win32 这个文件里dir_backup1.dat tacc_2_1.dll 

哪位老师帮我修改一下！！