I have a vbscript in access 2003 that apart from other things is supposed to create a folder before it imports the database.
It isnt doing this I have the script which I will attach I believe I am close but not quite there. Can someone please have a look and modify where necessary to allow a folder created before the transfer takes place.
Private Sub Command5_Click()
On Error GoTo Err_Command5_Click
Dim stDocName As String
Dim stDocName1 As String
Dim strDB As String
strDB = Text52 & "\" & Combo58 & ".mdb"
stDocName1 = "Deletetion_Ind.Master_Del"
stDocName = "Master"
DoCmd.OpenQuery stDocName, acNormal, acEdit
Set appAccess = CreateObject("Access.Application")
Set appAccess = Nothing
Set objShell = CreateObject("Scripting.FileSystemObject")
Set ofolder = objShell.createfolder(strDB)
DoCmd.TransferDatabase acExport, "Microsoft Access", strDB, acTable, "Master_tbl", Combo58, False
MsgBox "Please double check that you havent already done this"