vad är detta för något som ÄR FEL.....

Runtime Error 453

Can't find DLL entrey point
SHCreateDirectoryExa in Shell32


Det är deklarerar i General

Option explicit

Private Declare Function SHCreateDirectoryEx Lib "shell32.dll" _
Alias "SHCreateDirectoryExA" (ByVal hwnd As Long, _
ByVal pszPath As String, ByVal psa As Any) As Long

Du får visa vad du skickade till DLL :en

detta helt enligt dig

Private Sub Command1_Click() 'Test exempel
SHCreateDirectoryEx Me.hwnd, "D:\tester\" & Text3.Text, ByVal 0&
End Sub

Ja det kan du. Då måste Vi vaska fram textsträngen för dessa.
Detta exempel .Du har en Drive1 , en Dir1, en Text3 en Command1.

<code>
Option Explicit
Private Declare Function SHCreateDirectoryEx Lib "shell32" _
Alias "SHCreateDirectoryExA" (ByVal hwnd As Long, _
ByVal pszPath As String, ByVal psa As Any) As Long

Dim MyPath As String

Private Sub Form_Load()
Drive1.Drive = "C:" 'Start drive
End Sub

Private Sub Drive1_Change()
Dir1.Path = Drive1.Drive
End Sub

Private Sub Dir1_Change()
MyPath = Dir1.Path & "\" 'Dubbelklicka på mapp du vill ha
End Sub

Private Sub Command1_Click() 'Test
SHCreateDirectoryEx Me.hwnd, MyPath & Text3.Text, ByVal 0&
End Sub
</code>

Mysko vad står det i Text3.

text3.text = ""
text3.text = bilder tex eller något annat som man matar in i textboxen.
trycker enter och då skall den nya mappen tillverkas

Det kan ju inte stå en tom sträng i Text3 då blir det knass.
Sen en annan sak har du en Drive D.
Har du otillåtna tecken i Text3 vilket OS kör du ?

Du får lägga till en rad
If Text3.Text = "" Then Exit Sub

Fortfarande mysko det borde inte bli fel med Bilder
Kommer felet när du trycker Enter ? eller tidigare ?

Lägg in en MsgBox innan så du kan kolla vad du skickar

MsgBox MyPath & "\" & Text3.Text

Jag har en hårddisk partionerad på fyra c d e f

använder endast text

Win 98SE

VisualBasic 6.0

fick efter senaste provet efter det du skrev gjorde nytt men får ändå runtime error 453
ShCreateDirectoryeXa in shell32

Är det något fel på min VB el windows ?????????????????????????

Men va faen du skall klippa och klistra

SHCreateDirectoryExa in Shell32 Exa heter det för faen inte
SHCreateDirectoryEx in Shell32 skall det vara .

2003-12-03 11:33:51 - SvenPon


Ja det kan du. Då måste Vi vaska fram textsträngen för dessa.
Detta exempel .Du har en Drive1 , en Dir1, en Text3 en Command1.

Option Explicit
Private Declare Function SHCreateDirectoryEx Lib "shell32" _
Alias "SHCreateDirectoryExA" (ByVal hwnd As Long, _
ByVal pszPath As String, ByVal psa As Any) As Long

Dim MyPath As String

Private Sub Form_Load()
Drive1.Drive = "C:" 'Start drive
End Sub

Private Sub Drive1_Change()
Dir1.Path = Drive1.Drive
End Sub

Private Sub Dir1_Change()
MyPath = Dir1.Path & "\" 'Dubbelklicka på mapp du vill ha
End Sub

Private Sub Command1_Click() 'Test
SHCreateDirectoryEx Me.hwnd, MyPath & Text3.Text, ByVal 0&
End Sub


Men kan det inte vara att du har skrivit fel i koden själv

>Men kan det inte vara att du har skrivit fel i koden själv
Nix testar alltid innan jag sticker ut
Kom på felet Detta API funkar inte i Win98 jag kör XP skall vara

Private Declare Function CreateDirectoryEx Lib "kernel32" Alias "CreateDirectoryExA" (ByVal lpTemplateDirectory As String, ByVal lpNewDirectory As String, lpSecurityAttributes As Any) As Long
Private Declare Function RemoveDirectory Lib "kernel32" Alias "RemoveDirectoryA" (ByVal lpPathName As String) As Long
Private Sub Form_Load()
'KPD-Team 1999
'URL: http://www.allapi.net/
'E-Mail: KPDTeam@Allapi.net
'Create a new directory
CreateDirectoryEx "C:\Windows", "C:\KPD-Team", ByVal 0&
'remove the directory
RemoveDirectory "C:\KPD-Team"
End Sub

Det fungerar sådär , har inte tid tvättstugan väntar
<code>
Option Explicit
Private Declare Function CreateDirectoryEx Lib "kernel32" _
Alias "CreateDirectoryExA" (ByVal lpTemplateDirectory As String, _
ByVal lpNewDirectory As String, lpSecurityAttributes As Any) As Long

Dim MyPath As String

Private Sub Form_Load()
Drive1.Drive = "C:" 'Start drive
Text1.Text = ""
End Sub

Private Sub Drive1_Change()
Dir1.Path = Drive1.Drive
End Sub

Private Sub Dir1_Change()
MyPath = Dir1.Path & "\" 'Dubbelklicka på mapp du vill ha
End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
Dim tmpStr As String
If KeyAscii = 13 Then
If Text1.Text <> "" Then
tmpStr = Text1.Text
CreateDirectoryEx MyPath, tmpStr, ByVal 0&
End If
End If
End Sub
</code>

Tack för all hjälp nu fungerar det