Erreur en VB 6 path/file error acces
Résolu
dorian.
-
dorian. -
dorian. -
Bonjour,
je suis en train de programmer un logiciel un pet spécial ^^ je ne vous donne pas le principe car cela n'est pas utile je pense pour répondre a ma question, je demande au programme de créer un dossier au chargement de la form, ce denier le fait
, mais je me suis dit si le fichier existe déjà il va pas le recréer, voici mon code :
Private Sub Form_Load()
If RepExist(App.Path & "\filelien") Then
MsgBox "le ficher existe !", vbExclamation, ""
Else
MkDir App.Path & "\filelien"
SetAttr App.Path & "\filelien", vbHidden
End If
End Sub
Private Function RepExist(strRep As String) As Boolean
If Dir(strRep, vbDirectory) <> vbNullString Then RepExist = True
End Function
tés simplement il m'affiche le debug a la ligne : " MkDir App.Path & "\filelien" " il me donne comme message d'erreur : path/file error acces.
j'ai tout essayé mais en vin l'erreur est bien la mais je ne sais pas comment la résoudre merci a l'avance .
je suis en train de programmer un logiciel un pet spécial ^^ je ne vous donne pas le principe car cela n'est pas utile je pense pour répondre a ma question, je demande au programme de créer un dossier au chargement de la form, ce denier le fait
, mais je me suis dit si le fichier existe déjà il va pas le recréer, voici mon code :
Private Sub Form_Load()
If RepExist(App.Path & "\filelien") Then
MsgBox "le ficher existe !", vbExclamation, ""
Else
MkDir App.Path & "\filelien"
SetAttr App.Path & "\filelien", vbHidden
End If
End Sub
Private Function RepExist(strRep As String) As Boolean
If Dir(strRep, vbDirectory) <> vbNullString Then RepExist = True
End Function
tés simplement il m'affiche le debug a la ligne : " MkDir App.Path & "\filelien" " il me donne comme message d'erreur : path/file error acces.
j'ai tout essayé mais en vin l'erreur est bien la mais je ne sais pas comment la résoudre merci a l'avance .
A voir également:
- File access error
- .Bin file - Guide
- Host file - Guide
- .Dat file - Guide
- Iso file - Guide
- File renamer - Télécharger - Gestion de fichiers
2 réponses
Bonjour,
Je pense que tu veux créer un dossier dans le même répertoire que ton classeur ? Si oui, c'est pas app.path qu'il faut employer mais ThisWorkBook.Path
L'erreur que tu à c'est probablement que pour créer un dossier dans app.Path qui se trouve dans ProgrammeFile il faut avoir le jeton d'administrateur.
Pour vérifier tu peu.. Ouvrir ton classeur en tant q'administrateur -> Clic droit sur le classeur et ouvrir en tant qu'administrateur, probable qu'alors ça va fonctionner.
Tu dis, si ce n'est pas ça je verrais plus en profondeur.
A+
Je pense que tu veux créer un dossier dans le même répertoire que ton classeur ? Si oui, c'est pas app.path qu'il faut employer mais ThisWorkBook.Path
L'erreur que tu à c'est probablement que pour créer un dossier dans app.Path qui se trouve dans ProgrammeFile il faut avoir le jeton d'administrateur.
Pour vérifier tu peu.. Ouvrir ton classeur en tant q'administrateur -> Clic droit sur le classeur et ouvrir en tant qu'administrateur, probable qu'alors ça va fonctionner.
Tu dis, si ce n'est pas ça je verrais plus en profondeur.
A+
Bonjour,
Si j'ai bien compris, c'est la condition qui ne s'effectue pas. Si je lis bien le code, il crée un dossier puis le défini comme étant un dossier caché.
Donc votre dossier existe mais en caché. Et si ce dossier n'est pas caché, la condition s'effectue-t-elle correctement ?
Si j'ai bien compris, c'est la condition qui ne s'effectue pas. Si je lis bien le code, il crée un dossier puis le défini comme étant un dossier caché.
Donc votre dossier existe mais en caché. Et si ce dossier n'est pas caché, la condition s'effectue-t-elle correctement ?
