Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Suddenly not working
Message
De
29/11/2012 09:01:22
 
Information générale
Forum:
Visual FoxPro
Catégorie:
Codage, syntaxe et commandes
Versions des environnements
Visual FoxPro:
VFP 8 SP1
OS:
Windows 7
Network:
Windows 2003 Server
Database:
Visual FoxPro
Application:
Desktop
Divers
Thread ID:
01558326
Message ID:
01558329
Vues:
51
What happens if you try to run \\THCBGAD01\SHARES\QA\Qdms2000\archive\Level2 from Windows (WindowsKey+R)?

>The files are all still in the archive folder (lcCurDir). The user doesn't (or at least isn't supposed to be able to) have any input as to the folder - for each menu item, the lcCurDir is specified in code.
>
>I'm just puzzled as to why this suddenly quit working as it always did. I'm wondering if there isn't something being done on the server side where the specified folder isn't actually in that location anymore - kind of like that the recent versions of Windows do with the virtual folders? Perhaps in that case the Shell Exec defaults to the local Docs drive.
>
>>Could it be that someone moved the files to their local Documents folder, and left a link?
>>
>>>I have the following code as a procedure in a menu. This used to work just fine - the user accepts the warning msg and is then taken to the desired archive folder on the server. Suddenly it no longer works...everyone (regardless of Windows version) gets a window opened to their local "Documents."
>>>
>>>
>>>Messagebox("WARNING - For reference only!!"+CHR(13)+"Obsolete documents are for historical purposes only.",d_nOKbutton+d_nstopsign,"OBSOLETE - For Reference Only!")
>>>DECLARE Long ShellExecute IN "Shell32.dll" ;
>>>	Long hwnd, String lpVerb, String lpFile, ;
>>>	String lpParameters, String lpDirectory, Long nShowCmd
>>>* Open Windows Explorer for current folder
>>>lcCurDir = FULLPATH("\\THCBGAD01\SHARES\QA\Qdms2000\archive\Level2")
>>>* Current folder selected
>>>ShellExecute (0,"", GETENV("SystemRoot") + "\explorer.exe",  "/n, /root, " + lcCurDir, "", 1)
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform