Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Safe way to create a directory
Message
 
 
Information générale
Forum:
Visual FoxPro
Catégorie:
Codage, syntaxe et commandes
Divers
Thread ID:
00578887
Message ID:
00579131
Vues:
27
Based on this message, I've created this program:
lparameter tcDrive
if vartype(m.tcDrive)<>'C' or empty(m.tcDrive)
   tcDrive = "A:"
else
   tcDrive = left(m.tcDrive,2)   
endif   
 
LOCAL oFSO, oDrive
oFSO = CREATEOBJECT('Scripting.FileSystemObject')
oDrive = oFSO.GetDrive(m.tcDrive)
return oDrive.IsReady
And then I tested it for each possible letter. On the letter n: it gaves me Ole Error 0x800a0044: Unknown COM status code.


>>Hi everyone,
>>
>>I've just thought about something and made a quick test. Usually we have this kind of code:
>>
if not directory(m.lcDir)
>>   md (m.lcDir)
>>endif
>>
>>I decided to test it on "a" drive without disk inserted. To my surprise and relief, directory() function works fine.
>
>Under Win2K it triggers a system message box with "Cancel", "Try Again" and "Continue" buttons.
>
>However, md command gave an error "File Access is denied". So, what do you think, what kind of code would be more correct? (Besides trapping for error, of course).
>>
>
>
>See Message #320074.
If it's not broken, fix it until it is.


My Blog
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform