[Last Call] Learn how to a build a cloud-first strategyRegister Now

x
  • Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 149
  • Last Modified:

Creating a File from Command_click

I want the computer to create a file (namely A:\DAT1.DAT) when the user presses CmdFile_click. I also want code that will find if that file is already on the disk and ask the user if they wish to replace it.
0
R_N_WARD
Asked:
R_N_WARD
  • 2
1 Solution
 
AzraSoundCommented:
Private Sub CmdFile_Click()
   Dim exists As Boolean
   Dim filesys As Object
   Set filesys = CreateObject("Scripting.FileSystemObject")
   exists = filesys.FileExists("a:\dat1.dat")
   If exists Then
      MsgBox "File Exists Already"
   Else
      filesys.CreateTextFile("a:\dat1.dat")
   End If
End Sub
0
 
AzraSoundCommented:
a more complete example:

Private Sub CmdFile_Click()
    Dim exists As Boolean
    Dim i As Integer
    Dim filesys As Object
    Set filesys = CreateObject("Scripting.FileSystemObject")
    exists = filesys.FileExists("c:\windows\desktop\dat1.dat")
    If exists Then
        i = MsgBox("File Exists Already.  Do you wish to overwrite it?", _
            vbYesNo)
        If i = vbYes Then _
            filesys.CreateTextFile "c:\windows\desktop\dat1.dat", True
    Else
        filesys.CreateTextFile ("c:\windows\desktop\dat1.dat")
   End If
End Sub


0

Featured Post

New feature and membership benefit!

New feature! Upgrade and increase expert visibility of your issues with Priority Questions.

  • 2
Tackle projects and never again get stuck behind a technical roadblock.
Join Now