obj=CREATEOBJECT("MSComDlg.CommonDialog.1")
obj.Flags = 524288 + 512 + 4
obj.filter = "文件类型(*.TXT)|*.TXT"
obj.FileName = "D:\"+"请选择升级文件 (可以拖动鼠标多选)"
obj.maxFileSize=10000
obj.ShowOpen()
self=obj.FileName+CHR(0)
?self
Clear
FSO=CreateObject("Scripting.FileSystemObject")
sourcepath="d:\sn.txt"
oBjset = FSO.GetFile(sourcepath)
? "文件创建日期及时间:",oBjset.DateCreated
sourcepath1="F:\Picture"
oBjset = FSO.GetFolder(sourcepath1)
? "文件夹创建日期及时间:",oBjset.DateCreated
Release FSO
Declare Integer ShellExecute In shell32.dll Integer,String,String,String,String,Integer
Declare Integer GetDesktopWindow In Win32api
lcFile = Getfile("jpg")
If Empty(lcFile)
Return
Endif
lnWnd = GetDesktopWindow()
=Shellexecute(lnWnd,"open",lcFile,"","C:\",0)
Clear dlls
FileName=GETFILE()
DoOut(0,'OPEN',JUSTFNAME(FileName),'',JUSTPATH(FileName),9)
*------------------------------------------------------------------------------------------
FUNCTION DoOut
PARAMETERS lnHwnd,lcCom,lcFile,LcPra,lcPath,lcMode
DECLARE INTEGER ShellExecute IN "Shell32.dll" INTEGE...
把以下 notepad.exe 换成你的 DOS命令即可
来源:http://bbs.csdn.net/topics/340256503
Declare Long WinExec In kernel32 String,Long
=WinExec("notepad.exe",1)
Clear Dlls
WinExec(one.exe,SW_SHOW);
里面的SW_SHOW意思是什么
WinExec()函数第二个参数是什么意思
如果我想以无参数运行one.exe应该怎么办??
SW_SHOW表示以当前大小激活运行后的程序窗口并显示它。
...
Local lnI, drvName, drvType ,mydri
mydri=""
for lni=1 to 25
drvname=chr(64+lni)+": "
drvtype=drivetype(drvname)
do case
case drvtype = 1
driname="驱动器 " + drvname + "无类型"
case drvtype = 2
driname="驱动器 " + drvname + "是一个软盘驱动器"
case drvtype = 3
drin...