Information générale
Catégorie:
Codage, syntaxe et commandes
Titre:
Error in drive detection
I tried detecting a drive at that valid even of my textbox and this was my command...
IF ! empty(this.value)
dirdrive=alltrim(this.value)
oFSO = CREATEOBJECT("Scripting.FileSystemObject")
STORE oFSO.FolderExists("&dirdrive:\") to hon
IF hon=.f.
ans=messagebox('This is not a valid drive or there is no disk ;
in the drive, please try again')
this.value=''
RETURN 0
ENDIF
ENDIF
however, when i tried compiling it and running it in a windows 95 environment, the createobject triggered an error. is there a way of solving this problem or is there another way of detecting a drive aside from this? by the way, i'm using visual foxpro 6 in developing the system.
stephanie
Suivant
Répondre
Voir le fil de ce thread
Voir le fil de ce thread à partir de ce message seulement
Voir tous les messages de ce thread
Voir tous les messages de ce thread à partir de ce message seulement