Find a File

BackupUser · Post by **BackupUser** » Mon Jan 21, 2002 12:50 pm

Restored from previous forum. Originally posted by Ralf.

I want to write a programm that find a file called "DIRECTB.EXE" and
copies a file "DB-BELEG.EXE" from DISKETTE to the Directory below, which is called "_UBLA". And than put an "VERKNÃœPFUNG" to it to the desktop.

BackupUser · Post by **BackupUser** » Mon Jan 21, 2002 3:49 pm

Restored from previous forum. Originally posted by Franco.

And than put an "VERKNÃœPFUNG" to it to the desktop.

"VERKNÃœPFUNG" means link or shortcut

Have a nice day...
Franco

Sometimes you have to go a lonely way to accomplish genius things.

BackupUser · Post by **BackupUser** » Mon Jan 21, 2002 7:40 pm

Restored from previous forum. Originally posted by PB.

I want to write a programm that find a file called "DIRECTB.EXE"

There's a tip in the Tips 'n' Tricks section called "Tip: Tiny code to
find a file on disk" which will get you started. I can't help with the rest of
your query, sorry.

PB - Registered PureBasic Coder

BackupUser · Post by **BackupUser** » Tue Jan 22, 2002 9:25 am

Restored from previous forum. Originally posted by Ralf.

Thanks anyway.

BackupUser · Post by **BackupUser** » Tue Jan 22, 2002 9:31 am

Restored from previous forum. Originally posted by Ralf.

link was the word i was looking for.
sometimes you don't see the forest because of all the trees.

BackupUser · Post by **BackupUser** » Tue Jan 22, 2002 1:58 pm

Restored from previous forum. Originally posted by Ralf.

Is there something like "RTRIM".
Because on the below code i get for path: D:\DBTEST\DIRECTB.EXE.
But i only want to get D:\DBTEST\.

OpenConsole()
PrintN("Please input drivename in which you installed Direct Banking (z.B.: C:\, F:\) ")
Drive$=Input()
path$=Space(255)
r=SearchTreeForFile_(Drive$,"DIRECTB.EXE",path$)
If r=0
MessageRequester("Error","File not found ...",0)
Goto Ende
Else
MessageRequester("Location",path$,0)
EndIf
FoundPath$= path$ - "Directb.exe"
InstPath$ = FoundPath$ + "\_UBLA\"
PrintN(InstPath$)
CopyFile("A:\DB-Beleg.EXE",InstPath$)
Ende:

BackupUser · Post by **BackupUser** » Tue Jan 22, 2002 3:12 pm

Restored from previous forum. Originally posted by Ralf.

I found the solution !

Thanks to all which helped me !

Edited by - ralf on 28 January 2002 10:28:44