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 | 576次阅读 | 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 Releas...
2015-03-13 11:53 | 1202次阅读 | 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",lcFil...
2015-03-13 11:25 | 586次阅读 | 0评

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

FileName=GETFILE() DoOut(0,'OPEN',JUSTFNAME(FileName),'',JUSTPATH(FileName),9) *------------------------------------------------------------------------------------------ FUNCTION DoOut PARAMETERS lnHwnd,lcCom,lcFile,LcPra,lcPath,lcMode DECLARE INTEGER Sh...
2015-03-13 11:24 | 1744次阅读 | 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...
2015-03-11 14:26 | 1111次阅读 | 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 + "是一个软盘驱动器" ...
2015-02-17 22:06 | 450次阅读 | 0评
浏览160986次