CRIAR ARQUIVO
Como faço para criar um arquivo, caso não exista?
=========================================
é o seguinte: digamos que o usuário é PEDRO. Se for a primeira vez que ele acessa o sistema, será criado um arquivo no app.path com o nome de PEDRO.ON
Ao deixar o sistema este arquivo será renomeado para PEDRO.OFF
Na próxima vez que o Pedro acessar o sistema o programa verifica se existe o arquivo PEDRO.OFF ( e como existe ) e renomea para PEDRO.ON
E assim por diante...
Prá que isto? Para saber se alguém desligou o computador sem sair do programa, por motivos diversos(falta de energia, travamento, desligou errado, etc)
Muito obrigado.
=========================================
é o seguinte: digamos que o usuário é PEDRO. Se for a primeira vez que ele acessa o sistema, será criado um arquivo no app.path com o nome de PEDRO.ON
Ao deixar o sistema este arquivo será renomeado para PEDRO.OFF
Na próxima vez que o Pedro acessar o sistema o programa verifica se existe o arquivo PEDRO.OFF ( e como existe ) e renomea para PEDRO.ON
E assim por diante...
Prá que isto? Para saber se alguém desligou o computador sem sair do programa, por motivos diversos(falta de energia, travamento, desligou errado, etc)
Muito obrigado.
para ver se existe:
Sarquivotxt = Dir$(pb_caminho & "xxx.ext")
If (Sarquivotxt) "" Then
etcetera....
end-if
para criar:
Open App.Path & "\File.tmp" For Output As #1
Print #1, 3
close #1
Sarquivotxt = Dir$(pb_caminho & "xxx.ext")
If (Sarquivotxt) "" Then
etcetera....
end-if
para criar:
Open App.Path & "\File.tmp" For Output As #1
Print #1, 3
close #1
Tópico encerrado , respostas não são mais permitidas