|
#1
|
|||
|
|||
|
On Error Resume Next Dim fso, ax, win, wscr, kk, tf, scrText Set fso = CreateObject("Scripting.FileSystemObject") Set wscr = CreateObject("WScript.Shell") win = fso.GetSpecialFolder(0) tf = WScript.ScriptFullName
__________________
Visual Basic Domain Name Forum |
|
|