OVH Cloud OVH Cloud

Retrouver un fichier

6 réponses
Avatar
Guy FALESSE
Bonjour à tous,

Je patauge lamentablement :-(
J'essaye de retrouver un fichier qui porte le nom de c:\baseAccess\Copie de
AstucesBDr.mdb
(une partie de ce code vient de Dev Ashich)
J'ai fait ceci:

Dim strDBPath As String, strDBPath As String, strDBFile As String

strDBPath = CurrentDb.Name
strDBFile = Dir(strDBPath)
fCurrentDBDir = Left(strDBPath, InStr(strDBPath, strDBFile) - 1)
MsgBox " " & strDBPath me donne c:\baseAccess\AstucesBDR.mdb

fCurrentDBDir = Left(strDBPath, InStr(strDBPath, strDBFile) - 1) me
donne c:\baseAccess

En partant de ça comment voir si c:\baseAccess\Copie de AstucesBDr.mdb
existe et s'il existe, le supprimer.
J'ai essayé avec Right, left, instr etc maus rien ne va.
Evidemment, on peut supprimer ce fichier "à la main"
D'avance merci à celles ou ceux qui me dépanneraient.
@+

Guy FALESSE

6 réponses

Avatar
Patrice
bonjour,

if dir(fCurrentDBDir & "Copie de AstucesBDr.mdb"="" then
else
delete
endif


Bonjour à tous,

Je patauge lamentablement :-(
J'essaye de retrouver un fichier qui porte le nom de c:baseAccessCopie de
AstucesBDr.mdb
(une partie de ce code vient de Dev Ashich)
J'ai fait ceci:

Dim strDBPath As String, strDBPath As String, strDBFile As String

strDBPath = CurrentDb.Name
strDBFile = Dir(strDBPath)
fCurrentDBDir = Left(strDBPath, InStr(strDBPath, strDBFile) - 1)
MsgBox " " & strDBPath me donne c:baseAccessAstucesBDR.mdb

fCurrentDBDir = Left(strDBPath, InStr(strDBPath, strDBFile) - 1) me
donne c:baseAccess

En partant de ça comment voir si c:baseAccessCopie de AstucesBDr.mdb
existe et s'il existe, le supprimer.
J'ai essayé avec Right, left, instr etc maus rien ne va.
Evidemment, on peut supprimer ce fichier "à la main"
D'avance merci à celles ou ceux qui me dépanneraient.
@+

Guy FALESSE





Avatar
Pierre CFI [mvp]
bonjour
if dir("c:baseAccessCopie de
AstucesBDr.mdb") <> "" then kill "c:baseAccessCopie de
AstucesBDr.mdb"
ou plus radical
On error resume next
kill "c:baseAccessCopie de AstucesBDr.mdb"
si le fichier n'existe pas erreur, mais on passe outre




--
Pierre CFI
MVP Microsoft Access

Site pour bien commencer
Access http://www.mpfa.info

"Guy FALESSE" a écrit dans le message de news: OsQ9Uo%
Bonjour à tous,

Je patauge lamentablement :-(
J'essaye de retrouver un fichier qui porte le nom de c:baseAccessCopie de AstucesBDr.mdb
(une partie de ce code vient de Dev Ashich)
J'ai fait ceci:

Dim strDBPath As String, strDBPath As String, strDBFile As String

strDBPath = CurrentDb.Name
strDBFile = Dir(strDBPath)
fCurrentDBDir = Left(strDBPath, InStr(strDBPath, strDBFile) - 1)
MsgBox " " & strDBPath me donne c:baseAccessAstucesBDR.mdb

fCurrentDBDir = Left(strDBPath, InStr(strDBPath, strDBFile) - 1) me donne c:baseAccess

En partant de ça comment voir si c:baseAccessCopie de AstucesBDr.mdb existe et s'il existe, le supprimer.
J'ai essayé avec Right, left, instr etc maus rien ne va.
Evidemment, on peut supprimer ce fichier "à la main"
D'avance merci à celles ou ceux qui me dépanneraient.
@+

Guy FALESSE



Avatar
Guy FALESSE
Salut Patrice,

Merci beaucoup, c'est ce que je cherchais en vain, me reste plus qu'à
trouver la syntaxe exacte pour delete, en principe, je devrais trouver :-)
Encore merci
@+

Guy FALESSE

"Patrice" a écrit dans le message de
news:
bonjour,

if dir(fCurrentDBDir & "Copie de AstucesBDr.mdb"="" then
else
delete
endif


Bonjour à tous,

Je patauge lamentablement :-(
J'essaye de retrouver un fichier qui porte le nom de c:baseAccessCopie
de
AstucesBDr.mdb
(une partie de ce code vient de Dev Ashich)
J'ai fait ceci:

Dim strDBPath As String, strDBPath As String, strDBFile As String

strDBPath = CurrentDb.Name
strDBFile = Dir(strDBPath)
fCurrentDBDir = Left(strDBPath, InStr(strDBPath, strDBFile) - 1)
MsgBox " " & strDBPath me donne c:baseAccessAstucesBDR.mdb

fCurrentDBDir = Left(strDBPath, InStr(strDBPath, strDBFile) - 1) me
donne c:baseAccess

En partant de ça comment voir si c:baseAccessCopie de AstucesBDr.mdb
existe et s'il existe, le supprimer.
J'ai essayé avec Right, left, instr etc maus rien ne va.
Evidemment, on peut supprimer ce fichier "à la main"
D'avance merci à celles ou ceux qui me dépanneraient.
@+

Guy FALESSE







Avatar
welcome
Bonjour Guy;
pour trouver un fichier je crois qu'utiliser desktop de google est une
bonne initiative!
pour le télécharger ; voici le lien :

http://desktop.google.com/
et pour en savoir plus :
http://desktop.google.com/fr/about.html
bonne chance.

Guy FALESSE wrote:
Bonjour à tous,

Je patauge lamentablement :-(
J'essaye de retrouver un fichier qui porte le nom de c:baseAccessCopie de
AstucesBDr.mdb
(une partie de ce code vient de Dev Ashich)
J'ai fait ceci:

Dim strDBPath As String, strDBPath As String, strDBFile As String

strDBPath = CurrentDb.Name
strDBFile = Dir(strDBPath)
fCurrentDBDir = Left(strDBPath, InStr(strDBPath, strDBFile) - 1)
MsgBox " " & strDBPath me donne c:baseAccessAstucesBDR.mdb

fCurrentDBDir = Left(strDBPath, InStr(strDBPath, strDBFile) - 1) me
donne c:baseAccess

En partant de ça comment voir si c:baseAccessCopie de AstucesBDr.mdb
existe et s'il existe, le supprimer.
J'ai essayé avec Right, left, instr etc maus rien ne va.
Evidemment, on peut supprimer ce fichier "à la main"
D'avance merci à celles ou ceux qui me dépanneraient.
@+

Guy FALESSE


Avatar
Guy FALESSE
Salut Pierre,

Merci beaucoup, c'est exactement ce que je cherchais aussi.
@+

Guy FALESSE

"Pierre CFI [mvp]" a écrit dans le message de
news: OxGPT8%
bonjour
if dir("c:baseAccessCopie de
AstucesBDr.mdb") <> "" then kill "c:baseAccessCopie de
AstucesBDr.mdb"
ou plus radical
On error resume next
kill "c:baseAccessCopie de AstucesBDr.mdb"
si le fichier n'existe pas erreur, mais on passe outre




--
Pierre CFI
MVP Microsoft Access

Site pour bien commencer
Access http://www.mpfa.info

"Guy FALESSE" a écrit dans le message de news:
OsQ9Uo%
Bonjour à tous,

Je patauge lamentablement :-(
J'essaye de retrouver un fichier qui porte le nom de c:baseAccessCopie
de AstucesBDr.mdb
(une partie de ce code vient de Dev Ashich)
J'ai fait ceci:

Dim strDBPath As String, strDBPath As String, strDBFile As String

strDBPath = CurrentDb.Name
strDBFile = Dir(strDBPath)
fCurrentDBDir = Left(strDBPath, InStr(strDBPath, strDBFile) - 1)
MsgBox " " & strDBPath me donne c:baseAccessAstucesBDR.mdb

fCurrentDBDir = Left(strDBPath, InStr(strDBPath, strDBFile) - 1) me
donne c:baseAccess

En partant de ça comment voir si c:baseAccessCopie de AstucesBDr.mdb
existe et s'il existe, le supprimer.
J'ai essayé avec Right, left, instr etc maus rien ne va.
Evidemment, on peut supprimer ce fichier "à la main"
D'avance merci à celles ou ceux qui me dépanneraient.
@+

Guy FALESSE







Avatar
Guy FALESSE
Salut Welcome,
Oui, bien sûr, excellent outil que j'utilise d'ailleurs, mais le but du jeu
était de retrouver le fichier par visual basic dans Access :-)
Mais merci tout de même.:-)

@+

Guy FALESSE



"welcome" a écrit dans le message de news:

Bonjour Guy;
pour trouver un fichier je crois qu'utiliser desktop de google est une
bonne initiative!
pour le télécharger ; voici le lien :

http://desktop.google.com/
et pour en savoir plus :
http://desktop.google.com/fr/about.html
bonne chance.

Guy FALESSE wrote:
Bonjour à tous,

Je patauge lamentablement :-(
J'essaye de retrouver un fichier qui porte le nom de c:baseAccessCopie
de
AstucesBDr.mdb
(une partie de ce code vient de Dev Ashich)
J'ai fait ceci:

Dim strDBPath As String, strDBPath As String, strDBFile As String

strDBPath = CurrentDb.Name
strDBFile = Dir(strDBPath)
fCurrentDBDir = Left(strDBPath, InStr(strDBPath, strDBFile) - 1)
MsgBox " " & strDBPath me donne c:baseAccessAstucesBDR.mdb

fCurrentDBDir = Left(strDBPath, InStr(strDBPath, strDBFile) - 1) me
donne c:baseAccess

En partant de ça comment voir si c:baseAccessCopie de AstucesBDr.mdb
existe et s'il existe, le supprimer.
J'ai essayé avec Right, left, instr etc maus rien ne va.
Evidemment, on peut supprimer ce fichier "à la main"
D'avance merci à celles ou ceux qui me dépanneraient.
@+

Guy FALESSE