Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Access création de répertoire

création de répertoire

25 réponses
Avatar
fth
Bonjour,

ci-joint le bout de code qui me pose probleme:
...
NewMigPath = ("d:\MigAppli\") & Mid([AppliPath], 4)
If FolderExists(NewMigPath) = False Then


>>>>>c'est ici que ça calle .... (path/file access error) M'enfin!?
MkDir ("NewMigPath")

Quelqu'un(e) pourrait me dire ou ça coince?

D'avance merci

Frédéric
Signaler un problème avec ce contenu

10 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
1 2 3
Avatar
Eric
Bonjour Frédéric,

Je mettrai :
MkDir NewMigPath
sans les () ni les "

Bonjour,

ci-joint le bout de code qui me pose probleme:
...
NewMigPath = ("d:MigAppli") & Mid([AppliPath], 4)
If FolderExists(NewMigPath) = False Then



c'est ici que ça calle .... (path/file access error) M'enfin!?






MkDir ("NewMigPath")

Quelqu'un(e) pourrait me dire ou ça coince?

D'avance merci

Frédéric




--
A+
Eric
http://users.skynet.be/mpfa/
Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr






Avatar
Eric
.../...

Car NewMigPath est une variable de type String
De plus, tu peux ecrire :
NewMigPath = "d:MigAppli" & Mid([AppliPath], 4)
les parenthèses autour de "d:MigAppli" sont inutiles

Et enfin, es-tu sur du contenu du champ AppliPah ?

--
A+
Eric
http://users.skynet.be/mpfa/
Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr
Avatar
Jessy Sempere [MVP]
Bonjour

Je pense que ça vient surtout de l'initialisation de la variable NewMigPath

Essais de mettre :
NewMigPath = "d:MigAppli" & Mid([AppliPath], 4)

PS : j'ai juste retiré les parenthèses.
--
@+
Jessy Sempere - Access MVP

------------------------------------
Site @ccess : http://access.jessy.free.fr/
Pour l'efficacité de tous :
http://users.skynet.be/mpfa/
------------------------------------
"Eric" a écrit dans le message news:

Bonjour Frédéric,

Je mettrai :
MkDir NewMigPath
sans les () ni les "

Bonjour,

ci-joint le bout de code qui me pose probleme:
...
NewMigPath = ("d:MigAppli") & Mid([AppliPath], 4)
If FolderExists(NewMigPath) = False Then



c'est ici que ça calle .... (path/file access error) M'enfin!?






MkDir ("NewMigPath")

Quelqu'un(e) pourrait me dire ou ça coince?

D'avance merci

Frédéric




--
A+
Eric
http://users.skynet.be/mpfa/
Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr








Avatar
Eric
Bonjour Jessy
Effectivement , je l'ai vu qu'après d'où mon second post
Mais son MkDir ("NewMigPath") n'est pas bon car il ne passe pas la
variable mais une valeur fixe

Bonjour

Je pense que ça vient surtout de l'initialisation de la variable NewMigPath

Essais de mettre :
NewMigPath = "d:MigAppli" & Mid([AppliPath], 4)

PS : j'ai juste retiré les parenthèses.
--
@+
Jessy Sempere - Access MVP

------------------------------------
Site @ccess : http://access.jessy.free.fr/
Pour l'efficacité de tous :
http://users.skynet.be/mpfa/
------------------------------------


Avatar
Jessy Sempere [MVP]
Re,

Et oui, j'avais pas vu non plus... ;-))

--
@+
Jessy Sempere - Access MVP

------------------------------------
Site @ccess : http://access.jessy.free.fr/
Pour l'efficacité de tous :
http://users.skynet.be/mpfa/
------------------------------------
"Eric" a écrit dans le message news:
#
Bonjour Jessy
Effectivement , je l'ai vu qu'après d'où mon second post
Mais son MkDir ("NewMigPath") n'est pas bon car il ne passe pas la
variable mais une valeur fixe

Bonjour

Je pense que ça vient surtout de l'initialisation de la variable
NewMigPath



Essais de mettre :
NewMigPath = "d:MigAppli" & Mid([AppliPath], 4)

PS : j'ai juste retiré les parenthèses.
--
@+
Jessy Sempere - Access MVP

------------------------------------
Site @ccess : http://access.jessy.free.fr/
Pour l'efficacité de tous :
http://users.skynet.be/mpfa/
------------------------------------




Avatar
fth
Re bonjour,

merci pour toutes vos infos!
j'ai encore une erreur (path not found)
path not found semble normal vu la condition (si le repertoire n'existe pas,
le faire)
...

Je m'y perd un peu ...
merci

Frederic



"Jessy Sempere [MVP]" wrote in message
news:42dcbd33$
Re,

Et oui, j'avais pas vu non plus... ;-))

--
@+
Jessy Sempere - Access MVP

------------------------------------
Site @ccess : http://access.jessy.free.fr/
Pour l'efficacité de tous :
http://users.skynet.be/mpfa/
------------------------------------
"Eric" a écrit dans le message news:
#
Bonjour Jessy
Effectivement , je l'ai vu qu'après d'où mon second post
Mais son MkDir ("NewMigPath") n'est pas bon car il ne passe pas la
variable mais une valeur fixe

Bonjour

Je pense que ça vient surtout de l'initialisation de la variable
NewMigPath



Essais de mettre :
NewMigPath = "d:MigAppli" & Mid([AppliPath], 4)

PS : j'ai juste retiré les parenthèses.
--
@+
Jessy Sempere - Access MVP

------------------------------------
Site @ccess : http://access.jessy.free.fr/
Pour l'efficacité de tous :
http://users.skynet.be/mpfa/
------------------------------------








Avatar
fth
Bonjour Eric,

Oui je suis certain de applipath. Pq cette question?
le path de référence est par exemple f:repsubrep etc...
le ",4" est la pour retirer le f:
Ceci dit, je ne sais pas pq je dois mettre 4, vu qu'il n'y a que 3
caractères à outrepasser ...

Merci

"Eric" wrote in message
news:
.../...

Car NewMigPath est une variable de type String
De plus, tu peux ecrire :
NewMigPath = "d:MigAppli" & Mid([AppliPath], 4)
les parenthèses autour de "d:MigAppli" sont inutiles

Et enfin, es-tu sur du contenu du champ AppliPah ?

--
A+
Eric
http://users.skynet.be/mpfa/
Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr


Avatar
Eric
le ",4" est la pour retirer le f:
Ceci dit, je ne sais pas pq je dois mettre 4, vu qu'il n'y a que 3
caractères à outrepasser ...



re,
La fonction Mid() ou Mid$() te permet de spécifier à partir de quel rang
du caractère tu veux extraire les données de la chaine.
Syntaxe : Mid(LaChaîne, PositionDépart[, Longueur])

Donc tu dois bien préciser 4 puisque le 1er caractère de la chaine
extraite est à la 4eme position dans la chaine à extraire.

On peut voir ta fonction FolderExists() car elle doit être batie sur la
méthode FolderExist d'un objet FileSystemObject qui retourne False si le
répertoire n'est pas trouvé sans générer d'erreur.

Chez Raymond, tu as une page entière avec toutes les méthodes de
Scripting Runtime

http://officesystem.access.free.fr/scr_scripting_runtime.htm
--
A+
Eric
http://users.skynet.be/mpfa/
Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr

Avatar
fth
Re bonjour Eric,

Bien vu pour la fonction FolderExist que je te dépose ci dessous:

Public Function FolderExists(varpath As Variant) As Boolean
On Error Resume Next
If Len(varpath) > 0& Then
FolderExists = (Len(Dir$(varpath, vbDirectory)) > 0&)
End If
End Function

Ceci dit, même sans cette fonction, mkdir me renvoi la mm erreur à savoir :
'error76'
path not found

Merci pour tout!

Frédéric



"Eric" wrote in message
news:
le ",4" est la pour retirer le f:
Ceci dit, je ne sais pas pq je dois mettre 4, vu qu'il n'y a que 3
caractères à outrepasser ...



re,
La fonction Mid() ou Mid$() te permet de spécifier à partir de quel rang
du caractère tu veux extraire les données de la chaine.
Syntaxe : Mid(LaChaîne, PositionDépart[, Longueur])

Donc tu dois bien préciser 4 puisque le 1er caractère de la chaine
extraite est à la 4eme position dans la chaine à extraire.

On peut voir ta fonction FolderExists() car elle doit être batie sur la
méthode FolderExist d'un objet FileSystemObject qui retourne False si le
répertoire n'est pas trouvé sans générer d'erreur.

Chez Raymond, tu as une page entière avec toutes les méthodes de Scripting
Runtime

http://officesystem.access.free.fr/scr_scripting_runtime.htm
--
A+
Eric
http://users.skynet.be/mpfa/
Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr



Avatar
fth
Re bonjour,

Je viens de lire que la commande mkdir ne permet pas de creer des sub.
Zut alors
ça semble se vérifier quand je fais le test sub1sub2 etc ...

une idée?

Merci

Frédéric


"Jessy Sempere [MVP]" wrote in message
news:42dcbd33$
Re,

Et oui, j'avais pas vu non plus... ;-))

--
@+
Jessy Sempere - Access MVP

------------------------------------
Site @ccess : http://access.jessy.free.fr/
Pour l'efficacité de tous :
http://users.skynet.be/mpfa/
------------------------------------
"Eric" a écrit dans le message news:
#
Bonjour Jessy
Effectivement , je l'ai vu qu'après d'où mon second post
Mais son MkDir ("NewMigPath") n'est pas bon car il ne passe pas la
variable mais une valeur fixe

Bonjour

Je pense que ça vient surtout de l'initialisation de la variable
NewMigPath



Essais de mettre :
NewMigPath = "d:MigAppli" & Mid([AppliPath], 4)

PS : j'ai juste retiré les parenthèses.
--
@+
Jessy Sempere - Access MVP

------------------------------------
Site @ccess : http://access.jessy.free.fr/
Pour l'efficacité de tous :
http://users.skynet.be/mpfa/
------------------------------------








1 2 3