VFP中同时选定多个文件的方法

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
2015-04-07 19:52 | 阅读 1792 次 | 评论 0 条

VFP获取文件(夹)的创建日期及时间

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
2015-03-13 11:53 | 阅读 2614 次 | 评论 0 条

用默认软件打开jpg文件

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
2015-03-13 11:25 | 阅读 1568 次 | 评论 0 条

怎么打开用GetFile()取得的文件

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...
2015-03-13 11:24 | 阅读 4032 次 | 评论 0 条

vfp调用dos怎么解决黑屏停顿问题

把以下 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表示以当前大小激活运行后的程序窗口并显示它。 ...
2015-03-11 14:26 | 阅读 3710 次 | 评论 0 条

获取磁盘类型

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...
2015-02-17 22:06 | 阅读 1409 次 | 评论 0 条
浏览404226次