Map maken

[xX Da Master Xx]

Ik heb een vraagje..

Hoe kan ik mijn programma een map laten maken als deze er niet is?
Zodat hij eerst kijkt of het er is en als dat weer is dan gaat hij door anders maakt hij de nodige mappen aan...
En het liefst met een If en niet met een On Error GoTo errorsub

Alvast bedankt

 

[bartjuh94]

Hoi,

Ik weet niet met welke versie je werkt, maar deze code doet het bij 2008 Express Edition:

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If IO.Directory.Exists(My.Computer.FileSystem.SpecialDirectories.MyDocuments & "/map") Then
            My.Computer.FileSystem.CreateDirectory(My.Computer.FileSystem.SpecialDirectories.MyDocuments & "/Basketball Manager Save's")
            'code voor naar volgende form'
        Else
            'code vor naar volgende form'
        End If
    End Sub

Met vriendelijke groet,

Bart Hoogmoed :thumb:

 

[That Guy]

[COLOR="seagreen"]'vb6:[/COLOR]
dim sMap as string: sMap = "C:\foo\bar"  [COLOR="SeaGreen"]'noot dat je hier dus iets anders van moet maken[/COLOR]
if dir(sMap) = "" then
   mkdir "C:\foo\bar"
end if

 

[xX Da Master Xx]

Alle 2 heel hard bedankt :thumb:

ik kan er zeker wel iets mee doen

(Ik heb visual basic 6.0)

 

[xX Da Master Xx]

Vegras je bent heel hard bedankt!!!

Ik heb jouw code geprobeerd en alles lukt!!!


Heel hard bedankt (jij ook eh, bartjuh94 )

 

[xX Da Master Xx]

Nu heb ik nog een probleempje

Hoe kan ik mijn programma het gemaakte path terug laten openen?

Ik deed eerst dit:
Open App.Path & "\Accounts\Users\" + UserName + ".txt" For Output As #1

Maar nu heb ik mijn eigen directory gemaakt maar hoe open ik deze?

Alvast Bedankt

 

[That Guy]

een 'directory' is geen file, dus je kan m niet openen?

Open App.Path & "\Accounts\Users\" + UserName + ".txt" For Output As #1

dan open je dus bv. vegras.txt. Als je in die folder een map hebt gemaakt, genaamd 'foobar':

Open App.Path & "\Accounts\Users\" & sMap & "\" & UserName & ".txt" For Output As #1

open je dus foobar/Vegras.txt.

:thumb:

 

[xX Da Master Xx]

Nee nee...

mijn probleem is dat een hele directory wil geven:
C:\Program Files\mijn programma\Accounts\Users

die directory wil ik zo kunnen openen, niet niet met Open App.path want dan vertrek ik van waar de exe file staat...

Dus eigenlijk moet men programma ook als setup dienen in het geval dat de gebruiker die mappen niet op zij PC heeft staan...

Snappie?

 

[That Guy]

een filelistbox toevoegen op je form
[edit] en/of een folderlistbox, of beide. Check google's tutorials [/edit]

 

[xX Da Master Xx]

Nene

Ik heb een login scherm gemaakt en wanneer iemand in logt moet hij op:
C:\Program Files\mijn programma\Accounts\Users
gaan kijken of het opgegeven passwoord juist is en samen hoort met de username.

Maar ik wil gewoon weten hoe ik de text file in die directory kan openen.

 

[That Guy]

*sigh* zeg dat dan

dim sText as string
dim ff as long: ff = freefile
open "C:\Program Files\mijn programma\Accounts\Users\FILE.txt" for binary as #ff
get #ff,, sText
close #ff

msgbox sText

 

[xX Da Master Xx]

hahaha

Thx ik ga het nu uit proberen, maar ik ben er al zeker van dat het gaat lukken :thumb:

 

[xX Da Master Xx]

Ik ben bijna ten einde raad...

Het wil (weeral) niet werken, ligt het nu aan mij of doet visual basic nu gewoon moeilijk??

Dit is men code:

Private Sub Command2_Click()
Dim NaamBestand As String
Dim ff As Long


'On Error GoTo ErrorSub

NaamBestand = Text3

If Text3 = "" Then
MsgBox "Please fill in a username, dick.", vbExclamation, "Error creating account"
Else
If Text4 = "" Then
MsgBox "Please fill in a password.", vbExclamation, "Error creating account"
Else

Open "C:\Program Files\Easy File Transfer\Accounts\Users\" + UserName + ".txt" For Binary As #ff
Print #ff, Text3
Print #ff, Text4
Close #ff
End If
End If

'ErrorSub:
'MkDir "\Accounts"
'MkDir "\Accounts\Users"
'MkDir "\Accounts\Admins"
'MkDir "\Accounts\Ban"
'MkDir "\Accounts\Mute"
'Exit Sub


End Sub

wat achter de " ' " staat moet je niet naar kijken...

Wat is er fout in men code??

Het is de bedoeling dat hij een .txt file aanmaakt met UserName als naam en daarin op de eerste rij zijn username en op de 2de rij zijn paswoord...

En ik zou ook de code moeten hebben waar hij het .txt bestand opent zodat ik de 2 eerste rijen kan inlezen en zo kan na kijken of het passwoord en username goed zijn en bij elkaar horen..



Alvast bedankt

 

[That Guy]

je haalt wat dingen door elkaar. In binary mod kan je nl. (toch?!!?! zover ik weet niet) niet 'print' gebruiken, maar gebruik je 'put'. Bovendien moet je dubbele komma's gebruiken.

Het is de bedoeling dat hij een .txt file aanmaakt met UserName als naam en daarin op de eerste rij zijn username en op de 2de rij zijn paswoord...

Open "C:\Program Files\Easy File Transfer\Accounts\Users\" + UserName + ".txt" For Binary As #ff
Put #ff,, Text3
Put #ff,, Text4
Close #ff

En ik zou ook de code moeten hebben waar hij het .txt bestand opent zodat ik de 2 eerste rijen kan inlezen en zo kan na kijken of het passwoord en username goed zijn en bij elkaar horen..

Wat je niet weet is dat als je dingen wilt lezen in binary, je eerst wat space moet vrijmaken,omdat je niet exact weet hoe lang de strings zijn.
Je gaat zoiets willen:

[COLOR="seagreen"]
'maak eerst var's aan en geef ze witte ruimte. De username/password zijn dus MAX 100 tekens.[/COLOR]
dim sUser as string: sUser = space(100)
dim sPass as string: sPass = space(100)
Open "C:\Program Files\Easy File Transfer\Accounts\Users\" + UserName + ".txt" For Binary As #ff
get #ff,, sUser
Get #ff,, sPass
Close #ff

msgbox sUser: msgbox sPass

 

[xX Da Master Xx]

Ik heb het geprobeerd en na wat gesukkel ben ik er dan toch geraakt

Heel hard bedankt vegras!!


Maar mijn commando RmDir wil niet werken

Dit is de code die ik nu heb:

Private Sub Command1_Click()

Dim UserName As String
Dim Password As String
Dim ff As Long: ff = FreeFile


UserName = Text1
Password = Text2


If Text1 = "" Or Text2 = "" Then
MsgBox "Please fill in a username and a password", vbExclamation, "Error creating account"
Else

Open "C:\Program Files\Easy File Transfer\Accounts\Users\" + UserName + ".txt" For Binary As #ff
Get #ff, , UserName
Get #ff, , Password
If Text1 = UserName And Text2 = Password Then
MsgBox "Welcome " + UserName + ", have a nice day.", vbExclamation, "Acces Granted"
Else
MsgBox "Username or Password wrong!", vbExclamation, "Acces Denied"
RmDir "C:\Program Files\Easy File Transfer\Accounts\Users\" + UserName + ".txt"

Close #ff

End If
End If


End Sub

 

[That Guy]

check deze site:
http://www.vbexplorer.com/VBExplorer/vb_feature/may2000/may2000.asp

:thumb:


[edit]
dus:

A second possible error can occur if you attempt to remove a directory or folder that contains files. If you try, you'll receive this error message…

You must first use the Kill statement to remove every file from the folder before executing the RmDir statement (that's where the wildcard for the Kill statement comes in handy!)

Dit doe je dan zo:

kill "C:\foo\bar\*.*" [COLOR="seagreen"]'leeg het[/COLOR]
rmdir "C:\foo\bar" [COLOR="SeaGreen"]'wis dir[/COLOR]

:thumb:
[/edit]

 

[xX Da Master Xx]

Thx je bent echt een heel goede hulp voor me geweest

:thumb: