Eu to usando o seguinte codigo para salvar um arquivo XML com os campos que necessito dentro:

 

Private Sub cmdAccCreate_Click()
Dim MyAccXML As String
Dim filename As String
MyAccXML = MyAccXML & "<?xml version=" & Chr(34) & "1.0" & Chr(34) & "?>" & vbCrLf
MyAccXML = MyAccXML & "<account pass=" & Chr(34) & txtPW & Chr(34) & " type=" & Chr(34) & "1" & Chr(34) & " premDays=" & Chr(34) & "15" & Chr(34) & ">" & vbCrLf
MyAccXML = MyAccXML & "<characters>" & vbCrLf
MyAccXML = MyAccXML & "<character name=" & Chr(34) & txtName.Text & Chr(34) & " />" & vbCrLf
MyAccXML = MyAccXML & "</characters>" & vbCrLf
MyAccXML = MyAccXML & "</account>"
filename = App.Path & "" & txtAcc.Text & ".xml"
If FileExists(filename) = True Then
MsgBox "Error," & vbCrLf & "Account already exists!", vbOKOnly + vbCritical, "Error!"
Else
Open filename For Output As 1
Print #1, MyAccXML
Close 1
MsgBox "Account created sucefully. Please add your characters to it.", vbOKOnly + vbInformation, "Player Created"
End If
End Sub

 

 

O problema, eh que eu gostaria que fosse criado dentro de um pasta chamada ACCOUNT, alguem pode me ajuda? tenho procurado e nao vejo como (deve ser simples, mais to no sufoco).

 

Vlw

desculpa posta denovo, mais ninguem tem o codigo?

To pensando entao fazer ele Mover dps que criar, mais vai ser complicado

Sports, eu posso até te explicar sim....
Mas tipo, tem como tu entrar em contato com o meu e-mail ? Msmarcus@hotmail.com

Uma outra coisa, este código ai é para um jogo ONLINE não ?

Até mais,

Atenciosamente,
Marcus Vinícius

 

hehehehe Msmarcus.. eu ia pg a mesma coisa! hehehehehe

Cara se vc precisar de ajuda.. gostaria mto de me juntar ao projeto!

 

no seu código onde está filename = App.Path & "" & txtAcc.Text & ".xml"

troque o app.path para o caminho que voce quer gravar.:

filename =  "\servidorMinhapasta" & txtacc.text & ".xml"

Espero ter ajudado.