Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
I/O operation failure
Message
General information
Forum:
Visual FoxPro
Category:
FoxPro 2.x
Miscellaneous
Thread ID:
00149322
Message ID:
00149648
Views:
14
>>I get this message when I try to open 3 of my (2.6) projects. Any ideas as to why? or how to fix it?
>>
>>This is when I'm running FPW 2.6a, (version date August 2, 1994), under NT 4 service pack 3
>>
>>It also happens to my boss, but only when he has his HP 720E CD-RW is attached to the computer.
>
>I also get this message when from the command line, I issue the command,
>BUILD APP 'profile' FROM 'profile'

Some of the components of FPW were developed on a D: drive. Only develop FPW apps on a C: drive.
Try this program (which I think is also available on UT) * Program fixdrive
* replaces upper drive letters in *.app/*.exe files with "C:"
* Public domain - No copyright on this
PARAMETERS AppFile && the full name of *.app, *.exe
AppHandle = FOPEN(AppFile, 2)
IF AppHandle > 0
  FileLen = FSEEK(AppHandle, 0, 2)
  LastPos = -1
  = FSEEK(AppHandle, 0)
  DO WHILE !FEOF(AppHandle)
    LastPos=Srchfile(AppHandle, LastPos+1, FileLen, ':\')
    IF LastPos > 1 AND UPPER(GetString(AppHandle, LastPos-1, 1)) $ 'DEFGHIJKLMNOPQRSTUVWXYZ'
      =Fseek(AppHandle, LastPos -1)
      =FWRITE(AppHandle, 'c')
    ENDIF
  ENDDO
  =FCLOSE(AppHandle)
ENDIF

*************
PROCEDURE GetString
PARAMETERS FileHandle, fileloc, nbytes
=FSEEK(FileHandle, fileloc)
RETURN FREAD(FileHandle, nbytes)

************
PROCEDURE SrchFile
PARAMETERS FileHandle, FStart, FEnd, String1
***************************************
PRIVATE ALL && Bpos, Fpos, ByteBlock1, ByteBlock2, EndOfFile
Fpos=Fstart
BPos=0
=FSEEK(FileHandle, Fstart)
IF FEOF(FileHandle)
  RETURN -1
ENDIF
EndOfFile = .F.
ByteBlock1 = FREAD(FileHandle, 2048)
EndOfFile  =  LEN(ByteBlock1)=0
ByteBlock2 = FREAD(FileHandle, 2048)
DO WHILE !EndOfFile AND FPos<=FEnd
  Bpos=AT(String1, ByteBlock1+ByteBlock2)
  IF Bpos>0
    =FSEEK(FileHandle, Fpos+Bpos-1)
    RETURN Fpos+Bpos-1
  ENDIF
  Fpos=Fpos+2048
  ByteBlock1 = ByteBlock2
  ByteBlock2 = FREAD(FileHandle, 2048)
  EndOfFile = LEN(ByteBlock2)=0
ENDDO
RETURN -1
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform