Problème avec mkdir et kill
sheffy222
Messages postés
7
Date d'inscription
lundi 6 mars 2006
Statut
Membre
Dernière intervention
16 mars 2006
-
10 mars 2006 à 12:24
PCPT Messages postés 13272 Date d'inscription lundi 13 décembre 2004 Statut Membre Dernière intervention 3 février 2018 - 10 mars 2006 à 13:43
PCPT Messages postés 13272 Date d'inscription lundi 13 décembre 2004 Statut Membre Dernière intervention 3 février 2018 - 10 mars 2006 à 13:43
A voir également:
- Problème avec mkdir et kill
- Vb.net kill process - Forum Visual Basic
- Vb6 mkdir ✓ - Forum VB.NET
- Kill Process ✓ - Forum Visual Basic 6
- Php mkdir - Forum PHP
- Kill explorer ✓ - Forum C# / .NET
3 réponses
PCPT
Messages postés
13272
Date d'inscription
lundi 13 décembre 2004
Statut
Membre
Dernière intervention
3 février 2018
47
10 mars 2006 à 13:01
10 mars 2006 à 13:01
salut,
quand je taille mon stylo plume, mon crayon de bois ne fonctionne pas mieux. bizarre non?
kill supprime un ou des fichiers, ou un dossier vide.
mais sans voir ton code, dur dur de savoir ce qui cloche....
quand je taille mon stylo plume, mon crayon de bois ne fonctionne pas mieux. bizarre non?
kill supprime un ou des fichiers, ou un dossier vide.
mais sans voir ton code, dur dur de savoir ce qui cloche....
sheffy222
Messages postés
7
Date d'inscription
lundi 6 mars 2006
Statut
Membre
Dernière intervention
16 mars 2006
10 mars 2006 à 13:19
10 mars 2006 à 13:19
OK Voici mon code:
Private Sub nvprod_Click()
If Dir("H:\essai", vbDirectory) = vbNullString Then
MkDir "H:\essai"
End If
If Dir$("H:\essai\designation.xls") <> vbNullString Then
Kill "H:\essai\designation.xls"
End If
end sub
Le probleme c'est que chez moi ca ne fonctionne pas alors que chez un ami cela fonctionne à merveille.
Merci d'avance
Sheffy
Private Sub nvprod_Click()
If Dir("H:\essai", vbDirectory) = vbNullString Then
MkDir "H:\essai"
End If
If Dir$("H:\essai\designation.xls") <> vbNullString Then
Kill "H:\essai\designation.xls"
End If
end sub
Le probleme c'est que chez moi ca ne fonctionne pas alors que chez un ami cela fonctionne à merveille.
Merci d'avance
Sheffy
PCPT
Messages postés
13272
Date d'inscription
lundi 13 décembre 2004
Statut
Membre
Dernière intervention
3 février 2018
47
10 mars 2006 à 13:43
10 mars 2006 à 13:43
umm, çà marche aussi chez moi (sous VB6).
peut-être un problème de références....
sinon essai comme çà :
Option Explicit
'
Private Declare Function MakeSureDirectoryPathExists Lib "imagehlp.dll" _
(ByVal lpPath As String) As Long
'
Private Declare Function DeleteFile Lib "kernel32" Alias "DeleteFileA" _
(ByVal lpFileName As String) As Long
'
'
Private Sub nvprod_Click()
If Dir("C:\essai", vbDirectory) = vbNullString Then
Call MakeSureDirectoryPathExists("C:\essai")
Else
If Dir$("C:\essai\designation.xls") <> vbNullString Then
Call DeleteFile("C:\essai\designation.xls")
End If
End If
End Sub
<small> Coloration
syntaxique automatique [AFCK]</small>
peut-être un problème de références....
sinon essai comme çà :
Option Explicit
'
Private Declare Function MakeSureDirectoryPathExists Lib "imagehlp.dll" _
(ByVal lpPath As String) As Long
'
Private Declare Function DeleteFile Lib "kernel32" Alias "DeleteFileA" _
(ByVal lpFileName As String) As Long
'
'
Private Sub nvprod_Click()
If Dir("C:\essai", vbDirectory) = vbNullString Then
Call MakeSureDirectoryPathExists("C:\essai")
Else
If Dir$("C:\essai\designation.xls") <> vbNullString Then
Call DeleteFile("C:\essai\designation.xls")
End If
End If
End Sub
<small> Coloration
syntaxique automatique [AFCK]</small>