Home
Level Extreme platform
Subscription
Corporate profile
Products & Services
Login
FRANÇAIS
Home
FRANÇAIS
Level Extreme platform
Login
Best practices
Testimonials
Downloads
Articles
Subscription
Subscribe or renew
Benefits
Donate 5$
Donate 10$
Donate 15$
Donate 20$
Donate 25$
Corporate profile
Overview
Portfolio
Products & Services
Consulting services
Enterprise hosting
Web Site Hosting
Graphic design
Book publishing
Support
Troubleshooting
Problem with logins
Contact us
Legal
Copyright
Privacy policy
Terms & Conditions
Français
Code need fix
Message
From
03/06/2009 05:15:20
Mohammed Qasem
Jordan Telecom
Amman
,
Jordan
To
All
General information
Forum:
Visual FoxPro
Category:
Coding, syntax & commands
Title:
Code need fix
Environment versions
Visual FoxPro:
VFP 9
OS:
Windows XP
Network:
Windows XP
Database:
Visual FoxPro
Miscellaneous
Thread ID:
01403350
Message ID:
01403350
Views:
132
hi all,
i need help to fix this code below
SET DEFAULT TO "\\istweb-devlop\error\arttachment"
DIMENSION laFiles(8)
laFiles[1] = "pdf"
laFiles[2] = "tif"
laFiles[3] = "jpg"
laFiles[4] = "gif"
laFiles[5] = "bmp"
laFiles[6] = "doc"
laFiles[7] = "docx"
laFiles[8] = "rar"
FOR x = 1 TO ALEN(laFiles)
m.lcFileName = allTRIM(thisform.text5.value)+"a" + "." + laFiles(x)
thisform.text8.Value=allTRIM(thisform.text5.value)+"a" + "." + laFiles(x)&& it works
*************************************************************************************
LOCATE FOR m.lcFileName = allTRIM(thisform.text5.value)+"b" + "." + laFiles(x)&¬ work
IF FOUND()
thisform.text9.Value=allTRIM(thisform.text5.value)+"b" + "." + laFiles(x)
endif
LOCATE FOR m.lcFileName = allTRIM(thisform.text5.value)+"c" + "." + laFiles(x)&¬ work
IF FOUND()
thisform.text10.Value=allTRIM(thisform.text5.value)+"c" + "." + laFiles(x)
endif
LOCATE FOR m.lcFileName = allTRIM(thisform.text5.value)+"d" + "." + laFiles(x)&¬ work
IF FOUND()
thisform.text11.Value=allTRIM(thisform.text5.value)+"d" + "." + laFiles(x)
endif
******************************************************************************************
IF FILE(m.lcFileName)
EXIT
ENDIF
ENDFOR
If File(m.lcFileName)
Declare Long ShellExecute In "shell32.dll" ;
long HWnd, String lpszOp, ;
string lpszFile, String lpszParams, ;
string lpszDir, Long nShowCmd
lnResult = ShellExecute(0,'Open', m.lcFileName, 0,0,1)
IF !(m.lnResult > 32)
endif
Else
MESSAGEBOX("not found")
ENDIF
thanks
Next
Reply
Map
View the map of this thread
View the map of this thread starting from this message only
View
View all messages of this thread
View all messages of this thread starting from this message only
Click here to load this message in the networking platform
Level Extreme platform
Best practices
Testimonials
Downloads
Articles
Subscription
Subscribe or renew
Benefits
Donate 5$
Donate 10$
Donate 15$
Donate 20$
Donate 25$
Corporate profile
Overview
Portfolio
Products & Services
Consulting services
Enterprise hosting
Web Site Hosting
Graphic design
Book publishing
Support
Troubleshooting
Problem with logins
Contact us
Legal
Copyright
Privacy policy
Terms & Conditions
Login
Google
Copyright © 1993-2024 by Level Extreme Inc. All rights reserved · Website by
levelextreme.com